在R中更改shinyjs警报的标题答案

【问题标题】：Changing title of shinyjs alert in R在R中更改shinyjs警报的标题
【发布时间】：2020-12-10 02:43:53
【问题描述】：

我正在构建一个 R 闪亮的应用程序，并使用 shinyjs::alert 函数让用户知道何时提交成功。弹出窗口的默认标题是 127 IP 地址。可以将其更改为一串不同的文本吗？理想情况下，我的组织名称将被使用。

下面的代码来自shinyjs::alert 文档，稍作修改以创建一个发送消息“Hello World！”的按钮作为弹出窗口。

if (interactive()) {
  library(shiny)
  library(shinyjs)
  shinyApp(
    ui = fluidPage(
      useShinyjs(),  # Set up shinyjs
      actionButton("btn", "Click me")
    ),
    server = function(input, output) {
      observeEvent(input$btn, {
        # Change the following line for more examples
        alert("Hello world!")
      })
    }
  )
}

编辑： 在 microsoft edge 上的 windows 操作系统上运行时，默认消息显示为

【问题讨论】：

你用浏览器检查了吗？对我来说，在 Firefox 和 Edge 中，根本不显示任何标题。

标签： r shiny shinyjs

【解决方案1】：

您可以为此使用外部包：

闪亮警报：https://daattali.com/shiny/shinyalert-demo/
闪亮小部件：https://github.com/dreamRs/shinyWidgets#sweet-alert

【讨论】：

【解决方案2】：

当我在 Linux（在 Firefox 上）运行您的代码时，它是这样的：

也许窗口标题来自您的浏览器/操作系统？

【讨论】：