`bsModal` 윈도우에서`Close` 버튼을 숨기거나 비활성화하는 방법이 있습니까?

Question

bsModal 창 shiny에있는 응용 프로그램은 기본값 인 Close 버튼과 함께 제공됩니다. 장애인이 될 수있는 방법이 있습니까? 그래서 비슷한 질문을 찾아 보려고했지만 내 요구 사항과 일치하는 것을 찾지 못했습니다. 내 생각에 사용자가 오른쪽 상단 모서리 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){ 

    } 
)