r语言 - 在闪亮应用程序中更改 bsModal 的背景

Question

我正在开发一个闪亮的应用程序，我需要确保最终用户不会意外关闭 bsModal，因为它上有一些操作按钮。我做了一些研究，并了解到我需要覆盖背景和键盘参数，但即使我看到了一些建议，我也不知道这在我的代码中究竟需要放在什么位置。我不精通JavaScript，对Shiny也很陌生，所以即使感觉像是一个简单的任务，我也无法做到这一点。

如果有人需要它，这里有一些虚拟代码，可以在按下按钮后打开一个模式窗口;我需要防止人们通过意外单击后台或点击 esc 来关闭它。

library(shiny)
library(shinyBS)
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
actionButton("go", "Go")
,bsModal("window", "Window", "go"
,textOutput("print"))
)
,mainPanel()
)
)
server <- function(input, output, session) {
output$print = renderText("This is a test")
}
shinyApp(ui, server)

我尝试结合这两个线程中提供的解决方案：

有没有办法隐藏/禁用"bsModal"窗口中的"关闭"按钮？

防止引导模式在单击外部或按转义时消失？

做这样的事情(在几个不同的组合中(，但这并没有真正起作用：

actionButton("go", "Go")
,bsModal("window", "Window", "go"
,textOutput("print")
,tags$head(tags$style("#window .modal{backdrop: 'static'}")))
)

任何帮助将不胜感激！

Answer 1

这将做到这一点：

bsModalNoClose <-function(...) {
b = bsModal(...)
b[[2]]$`data-backdrop` = "static"
b[[2]]$`data-keyboard` = "false"
return(b)
}

然后，您也可以关闭页眉和页脚，以防止关闭那里：

bsModalNoClose("window", "Window", "go"
,textOutput("print"),
tags$head(tags$style("#window .modal-footer{display:none}
.modal-header{display:none}")))