有没有办法隐藏/禁用`bsModal`窗口上的'关闭'按钮？

Question

应用程序中的bsModal窗口shiny带有默认Close按钮.有没有办法可以禁用？我试图在SO上查找类似的问题,但没有找到符合我要求的问题.我认为,如果用户可以使用右上角X按钮关闭窗口,则根本不需要另一个Close按钮.请指教.以下可重现的代码将生成一个示例bsModal窗口来理解我的问题.

library(shiny)
library(shinyBS)

if(interactive()){
  shinyApp(
    ui <- fluidPage(
      actionButton("open", "Open"), #action button to trigger the modal window.
      bsModal("id1", "Box 1", "open", size = "small",
              HTML(paste("A simple modal window."))
              )
      ),

    server <- function(input,output,session){

    }
  )
}

Answer 1

这应该做到这一点

library(shiny)
library(shinyBS)

if(interactive()){
  shinyApp(
    ui <- fluidPage(
      actionButton("open", "Open"), #action button to trigger the modal window.
      bsModal("id1", "Box 1", "open", size = "small",
              HTML(paste("A simple modal window.")),
              tags$head(tags$style("#id1 .modal-footer{ display:none}"))
      )
    ),

    server <- function(input,output,session){

    }
  )
}