引入shinyalert包后Shiny Server无法运行，RStudio中正常

问题情况 #

本地Shiny Server运行包含shinyalert的简单应用时，出现「Disconnected from the Server」提示，控制台输出「The application unexpectedly exited」。移除shinyalert相关代码后应用可正常运行，且该代码在R 4.1.2版本的RStudio中能正常执行。

原测试代码：

library(shiny)
library(shinyalert)

ui <- fluidPage(
  "Hello, world!"
)
server <- function(input, output, session) {
  shinyalert(text = "Hi")
}
shinyApp(ui, server)

问题原因 #

shinyalert依赖特定的前端JS/CSS资源，必须在UI部分显式调用useShinyalert()来加载这些资源。RStudio环境可能会自动处理部分依赖加载，因此能正常运行，但Shiny Server对依赖初始化要求更严格，缺少这一步会导致应用因前端资源缺失而崩溃退出。

另外，直接在server函数根作用域调用shinyalert，可能在session未完全就绪时执行，也会引发运行异常。

解决方案 #

1. 在UI的fluidPage中添加useShinyalert()，显式初始化shinyalert的前端依赖
2. 将shinyalert的调用放在响应式环境（如observe）中，确保在session就绪后执行

修正后的代码：

library(shiny)
library(shinyalert)

ui <- fluidPage(
  useShinyalert(), # 初始化shinyalert的前端资源
  "Hello, world!"
)
server <- function(input, output, session) {
  observe({
    shinyalert(text = "Hi")
  })
}
shinyApp(ui, server)

额外检查项 #

• 确认Shiny Server所在环境已安装shinyalert包，且版本与本地RStudio中使用的版本一致
• 重启Shiny Server服务，确保新安装的包或配置生效

内容的提问来源于stack exchange，提问作者Jareem