r - 有没有办法隐藏/禁用 `Close` 窗口上的 `bsModal` 按钮？

Question

shiny 应用程序中的 bsModal 窗口带有默认的关闭 按钮。有没有办法可以禁用？我试图在 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){

    }
  )
}