在R中更改shinyjs警报的标题

Question

我正在构建一个R闪亮的应用程序，并使用shinyjs::alert功能让用户知道什么时候提交是成功的。弹出的默认头是一个127个IP地址.是否可以将其更改为一串不同的文本？理想的情况下，我的组织的名称将使用在它的位置。

下面的代码从shinyjs::alert文档中略作修改，创建一个发送消息"Hello！“的按钮。作为一个弹出式窗口。

​

​

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边缘的windows上运行时，默认消息显示为

​

​

Answer 1

为此，您可以使用外部包：

https://daattali.com/shiny/shinyalert-demo/

• shinyWidgets：https://github.com/dreamRs/shinyWidgets#sweet-alert

：

• shiny警报

Answer 2

当我在Linux (在Firefox上)运行您的代码时，如下所示：

​

​

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