有沒有辦法隱藏/禁用`bsModal`窗口上的`Close`按鈕？

A bsModal在shiny應用程序中的窗口帶有默認的Close按鈕。有沒有可以禁用的方法？我試圖尋找類似的問題SO，但沒有找到一個符合我的要求。我想，如果用戶可以使用右上角的關閉窗口X按鈕，則不需要另一個Close按鈕。請指教。以下重複代碼將生成樣本bsModal窗口來了解我的問題。有沒有辦法隱藏/禁用`bsModal`窗口上的`Close`按鈕？

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

    } 
) 
}

來源

2017-09-15 Sagar

這應該這樣做

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

    } 
) 
}

來源

2017-09-15 14:11:52

真棒。正是我在找什麼。不知道我們可以使用'tags'來實現這一點。感謝這個偉大的解決方案。 – Sagar

如果這是你需要的，請接受答案 –

我想這樣做，但它顯示出一些錯誤（要求我稍後再試）。當我嘗試點贊時，同樣的事情。我假設我有權接受/贊成。 – Sagar

或者以豬排@的解決方案，你可以寫的模式不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){ 

    } 
)

來源

2017-09-16 13:16:11

感謝分享替代品。我的應用程序目前使用'shinyBS'，所以會堅持第一個解決方案。 – Sagar

有沒有辦法隱藏/禁用`bsModal`窗口上的`Close`按鈕？

回答

相關問題