如何在加载数据时显示shinyalert弹窗并实现自动关闭？

你的代码逻辑顺序有误，应该先弹出等待弹窗，再执行数据读取，最后在加载完成后关闭弹窗。以下是修改后的实现：

核心修改点 #

• 调整执行顺序：先触发弹窗，再读取数据，加载完成后自动关闭弹窗
• 优化弹窗参数：禁用手动关闭选项（ESC/点击外部），隐藏确认按钮，避免用户提前中断加载
• 使用closeAlert()函数实现弹窗自动关闭

修改后的完整代码 #

library(shiny)
library(shinyalert)

ui <- fluidPage(
  # 这里添加你的UI组件
)

server <- function(input, output, session) {
  # 弹出等待弹窗
  shinyalert(
    title = "加载中",
    text = "正在读取数据，请稍候...",
    size = "xs",
    closeOnEsc = FALSE,
    closeOnClickOutside = FALSE,
    html = FALSE,
    type = "info",
    showConfirmButton = FALSE,
    animation = TRUE
  )
  
  # 读取大规模数据集
  data <- read_sav("BS.SAV")
  
  # 数据加载完成后自动关闭弹窗
  closeAlert()
  
  # 后续数据处理逻辑（示例）
  # output$data_summary <- renderPrint({
  #   summary(data)
  # })
}

shinyApp(ui, server)

补充说明 #

如果需要更流畅的非阻塞加载体验（避免UI冻结），可以结合future和promises包实现异步数据读取，此时需要用observe配合promise来触发弹窗关闭，示例如下：

library(shiny)
library(shinyalert)
library(future)
library(promises)

plan(multisession)  # 启用异步会话

ui <- fluidPage(
  # 你的UI组件
)

server <- function(input, output, session) {
  shinyalert(
    title = "加载中",
    text = "正在读取数据，请稍候...",
    size = "xs",
    closeOnEsc = FALSE,
    closeOnClickOutside = FALSE,
    html = FALSE,
    type = "info",
    showConfirmButton = FALSE,
    animation = TRUE
  )
  
  # 异步读取数据
  data_promise <- future({
    read_sav("BS.SAV")
  })
  
  # 数据加载完成后关闭弹窗并处理数据
  observe({
    data_promise %...>% {
      closeAlert()
      # 这里可以继续处理加载好的数据，比如赋值给全局变量或渲染输出
      data <- .
      # output$data_table <- renderDT({datatable(data)})
    } %...!% {
      # 处理加载错误的情况
      closeAlert()
      shinyalert("加载失败", "数据读取出现错误，请检查文件路径或格式", type = "error")
    }
  })
}

shinyApp(ui, server)

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