`bsModal`ウィンドウで` Close`ボタンを非表示/無効にする方法はありますか？

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

これは、@にまたそれをPorkChopのソリューションを

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){ 

    } 
) 
} 

Answer 2

を行う必要があり、あなたはshinyBSずにモーダルを書き込むことができます。

library(shiny) 

shinyApp(
    ui <- fluidPage(
    tags$button(class="btn btn-default", 
       "data-toggle"="modal", "data-target"="#simplemodal", 
       "Open modal"), 
    tags$div(
     id = "simplemodal", 
     class="modal fade", role="dialog", 
     tags$div(
     class="modal-dialog", 
     tags$div(
      class="modal-content", 
      #### Header #### 
      tags$div(
      class="modal-header", 
      tags$button(
       type="button", class="close", "data-dismiss"="modal", 
       HTML("&times;") 
      ) 
     ), 
      #### Body #### 
      tags$div(
      class="modal-body", 
      HTML("A simple modal window") 
     ), 
      #### Footer (remove it if you want) #### 
      tags$div(
      class="modal-footer", 
      tags$button(
       type="button", class="btn btn-default", "data-dismiss"="modal", 
       "Close" 
      ) 
     ) 
     ) 
    ) 
    ) 
), 

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

    } 
)