我想在选项卡/应用关闭之前显示确认模态框,但仅当确实进行了更改时才显示。
我在这里找到了一些有用的函数(链接),但它们每次关闭应用程序/选项卡时都会显示模态框。在下面的示例中,我使用了@Matee Gojra的
我认为我可以从R向JavaScript发送布尔值,并仅在进行更改时执行该函数。
但显然,如果在函数中包含if条件,则不再起作用。
我该如何使其工作,或者这是有意而为之的吗?
当JS代码片段中的条件
我在这里找到了一些有用的函数(链接),但它们每次关闭应用程序/选项卡时都会显示模态框。在下面的示例中,我使用了@Matee Gojra的
goodbye
函数。我认为我可以从R向JavaScript发送布尔值,并仅在进行更改时执行该函数。
但显然,如果在函数中包含if条件,则不再起作用。
我该如何使其工作,或者这是有意而为之的吗?
library(shiny)
js <- HTML("
var changes_done = false;
Shiny.addCustomMessageHandler('changes_done', function(bool_ch) {
console.log('Are changes done?');
console.log(bool_ch);
changes_done = bool_ch;
});
function goodbye(e) {
if (changes_done === true) {
if(!e) e = window.event;
//e.cancelBubble is supported by IE - this will kill the bubbling process.
e.cancelBubble = true;
//This is displayed on the dialog
e.returnValue = 'Are you sure you want to leave without saving the changes?';
//e.stopPropagation works in Firefox.
if (e.stopPropagation) {
e.stopPropagation();
e.preventDefault();
}
}
}
window.onbeforeunload = goodbye;
")
ui <- fluidPage(
tags$head(tags$script(js)),
actionButton("add_sql", "Make Changes"),
verbatimTextOutput("sqls")
)
server <- function(input, output, session) {
sqlCmd <- reactiveVal(NULL)
## Simulate a Change
observeEvent(input$add_sql, {
sqlCmd(runif(1, 1, 1000))
})
output$sqls <- renderPrint({
req(sqlCmd())
sqlCmd()
})
## Are changes made? Send to JS
observe({
if (!is.null(sqlCmd())) {
session$sendCustomMessage("changes_done", 'true')
} else {
session$sendCustomMessage("changes_done", 'false')
}
})
}
shinyApp(ui, server)
当JS代码片段中的条件
if (changes_done === true) {}
被注释或删除时,模态框会在关闭应用程序之前出现,但如果保留该条件则不会出现。"最初的回答"