如何在 R Shiny 中添加消息框？

Question

我正在尝试使用 uiOutput 在 Shiny 中显示 "user is authenticated" 或 "account created" 之类的消息，但它会覆盖我不需要的 Shiny 仪表板的首页。

Shiny中有没有一个功能，我们可以在其中添加一个类似东西的消息框，一旦显示消息就可以关闭它，然后用户可以继续？

Answer 1

你可以使用 modalDialogs，这是一个有效的例子：

library(shiny)
ui = fluidPage(
  actionButton("login", "Log in"),
  textInput('userid','User id:',value=' definitely not Florian')
)
server = function(input, output) {
  observeEvent(input$login, {
    showModal(modalDialog(
      title = "You have logged in.",
      paste0("It seems you have logged in as",input$userid,'.'),
      easyClose = TRUE,
      footer = NULL
    ))
  })
}

shinyApp(ui,server)

希望对您有所帮助！

如何在 R Shiny 中添加消息框？

How can I add a message box in R Shiny?

r

popup

popupwindow

shiny