时间戳

首页 > 解决方案 > 创建一个弹出窗口，显示一旦访问闪亮的应用程序，欢迎用户访问仪表板

r - 创建一个弹出窗口，显示一旦访问闪亮的应用程序，欢迎用户访问仪表板

问题描述

是否可以创建一个弹出窗口来欢迎用户访问闪亮的仪表板？此外，我希望他们能够在弹出窗口中点击一个按钮来关闭它。

理想情况下，弹出窗口会说“欢迎使用 _______ 仪表板！如果您准备好继续，请按 OK！”。确定按钮将关闭弹出窗口。

标签： rshinypopup

解决方案

继@Gainz 的评论之后，您可以使用shinyalert, 或任何其他显示模态的方法，例如showModal(modalDialog(...)).

如果您在应用程序的服务器函数中调用它（没有observeor observeEvent，只是原样），那么它将在每个用户会话中运行一次。

下面的最小示例：

library(shiny)
library(shinyalert)

ui <- fluidPage(

  useShinyalert()

)

server <- function(input, output, session) {

  shinyalert("Welcome", "Welcome to the ___ Dashboard!", type = "info")

}

shinyApp(ui, server)

推荐阅读