之前我在代码中成功使用了bsModal。但是,我似乎无法在用户默认访问应用的第一页时显示模式弹出窗口。我认为这样的事情会奏效,但不会。知道如何在页面访问时触发bsModal吗?
library(shiny)
library(shinyBS)
ui <- fluidPage(
mainPanel(
bsModal(id = 'startupModal', title = 'Dum Dum', trigger = '',
size = 'large', p("here is my mumbo jumbo")),
width = 12
)
)
server <- function(input, output, session) {
}
shinyApp(ui = ui, server = server)
我只需要在用户访问应用时向用户发出消息,然后允许他们关闭模式弹出窗口并自由导航应用程序的其余部分。我正在使用Shinydashboard。所以,最终,这必须与之合作。
答案 0 :(得分:6)
您可以使用toggleModal
手动触发服务器的弹出窗口。
library(shiny)
library(shinyBS)
ui <- fluidPage(
mainPanel(
bsModal(id = 'startupModal', title = 'Dum Dum', trigger = '',
size = 'large', p("here is my mumbo jumbo")),
width = 12
)
)
server <- function(input, output, session) {
toggleModal(session, "startupModal", toggle = "open")
}
shinyApp(ui = ui, server = server)
答案 1 :(得分:3)
这是一个使用JS在页面加载时触发bsModal的解决方案&#34; onload&#34;来自ui
,无需等待server
。以及建议here的解决方案,以防止最终用户通过单击模态外部意外关闭模态或按Esc
library(shiny)
library(shinyBS)
bsModalNoClose <-function(...) {
b = bsModal(...)
b[[2]]$`data-backdrop` = "static"
b[[2]]$`data-keyboard` = "false"
return(b)
}
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
bsModalNoClose("window", "Window",
title="Enter Login Details",size='small',
textInput('username', 'Username'),
passwordInput('pwInp', 'Password'),
actionButton('butLogin', 'Login', class = 'btn action-button btn-success', icon = icon('sign-in')),
footer = h4(actionLink('create_account','Create an account'),align='right'),
tags$head(tags$style("#window .modal-footer{display:none}
.modal-header .close{display:none}"),
tags$script("$(document).ready(function(){
$('#window').modal();
});")
))
)
,mainPanel()
))
server <- function(input, output, session) {}
shinyApp(ui, server)
我希望它对未来的读者有所帮助。