创建一个弹出窗口，该窗口在访问有光泽的应用程序后立即显示，欢迎用户使用仪表板

Question

是否可以创建一个弹出窗口，一旦用户访问了闪亮的仪表板，该弹出窗口将欢迎用户使用？另外，我希望他们能够在弹出窗口中单击一个将其关闭的按钮。

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

Answer 1

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

如果您在应用程序的服务器功能内调用它（没有observe或observeEvent，保持原样），则它将在每个用户会话中运行一次。

下面的最小示例：

library(shiny)
library(shinyalert)

ui <- fluidPage(

  useShinyalert()

)

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

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

}

shinyApp(ui, server)