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

【问题标题】：How can I add a message box in R Shiny?如何在 R Shiny 中添加消息框？
【发布时间】：2018-02-06 17:18:18
【问题描述】：

我正在尝试使用 uiOutput 在 Shiny 中显示“用户已通过身份验证”或“已创建帐户”之类的消息，但它会覆盖我的 Shiny 仪表板的首页，这不是必需的。

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

【问题讨论】：

是的，您可以使用insertUI 和removeUI，但是base shiny 没有“消息框”作为UI，您必须使用一些CSS 对其进行自定义。

【解决方案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)

希望这会有所帮助！

【讨论】：

谢谢!!!实际上我确实使用 modaldialog 进行用户登录，但没有想到使用它来显示消息。它有效。