R 有没有办法隐藏/禁用“bsModal”窗口上的“关闭”按钮?
R 有没有办法隐藏/禁用“bsModal”窗口上的“关闭”按钮?,r,shiny,modal-dialog,R,Shiny,Modal Dialog,闪亮的应用程序中的bsModal窗口带有一个默认的Close按钮。有没有一种方法可以禁用?我试图在SO上查找类似的问题,但没有找到符合我要求的问题。我认为,如果用户可以使用右上角的X按钮关闭窗口,那么实际上不需要另一个close按钮。请告知。以下可复制代码将生成一个示例bsModal窗口,以了解我的问题 library(shiny) library(shinyBS) if(interactive()){ shinyApp( ui <- fluidPage( act
闪亮的应用程序中的bsModal
窗口带有一个默认的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){
}
)
}
库(闪亮)
图书馆(shinyBS)
if(interactive()){
shinyApp(
ui这应该可以
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){
}
)
}
库(闪亮)
图书馆(shinyBS)
if(interactive()){
shinyApp(
ui除了@PorkChop的解决方案之外,您还可以在不使用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("×")
)
),
#### 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){
}
)
库(闪亮)
shinyApp(
ui真棒。正是我想要的。不知道我们可以使用标记来实现这一点。感谢这个伟大的解决方案。如果这是您需要的,请接受答案。我正在尝试这样做,但显示出一些错误(请让我稍后再试)。当我尝试向上投票时也是一样。我假设我有权接受/upvote。感谢您分享备选方案。我的应用程序目前使用shinyBS
,因此将坚持第一种解决方案。请注意,bsModal
保留其中输入的状态。如果您需要在关闭/重新打开后保留输入,请使用bsModal
。