3

我之前在我的代码中成功使用了 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。所以，最终，这必须与它一起工作。

4

2 回答 2

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)
于 2016-12-06T01:59:04.293 回答
4

这是一个使用 JS 在页面加载“onload”时触发 bsModal 的解决方案，ui而无需等待server. 连同此处提出的解决方案，以防止最终用户通过单击模态外部或按 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)

我希望它可能对未来的读者有所帮助。

于 2018-06-11T23:41:31.550 回答