有没有办法隐藏/禁用`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`按钮？

回答

相关问题