R Shiny:在页面访问时显示ShinyBS模态弹出窗口(无用户操作)

时间:2016-12-06 00:13:17

标签: r shiny shinybs

之前我在代码中成功使用了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。所以,最终,这必须与之合作。

2 个答案:

答案 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)

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