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

Question

我试图在 Shiny with 中显示诸如“用户已通过身份验证”或“帐户已创建”之类的消息uiOutput，但它覆盖了我不需要的 Shiny 仪表板的首页。

Shiny 中是否有一个功能，我们可以在其中添加一个类似于 thing 的消息框，该消息框可以在显示消息后关闭，然后用户可以继续？

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)

希望这可以帮助！