Создайте всплывающее окно, отображающее доступ к блестящему приложению, которое приветствует пользователя на панели инструментов.

Question

Можно ли создать всплывающее окно, которое будет приветствовать пользователя, когда он получит доступ к блестящей панели инструментов? Кроме того, я хотел бы, чтобы они могли щелкнуть по кнопке во всплывающем окне, которое закроет ее.

В идеале всплывающее окно должно было бы что-то сказать «Добро пожаловать на _______ панель инструментов! Если вы готовы продолжить, нажмите« ОК »!». И кнопка «ОК» закроет всплывающее окно.

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)