如何从R Shiny的global.R启动加载界面？

核心思路 #

因为global.R是在Shiny的UI和Server启动前执行的，常规加载提示工具（如Waiter）依赖Server端触发，无法覆盖这个阶段。解决办法是提前渲染静态加载提示页面，等global.R执行完成后，Shiny才会自动替换这个静态页面为实际UI。

具体实现步骤 #

1. 创建自定义入口HTML文件 #

在你的Shiny应用目录下新建www文件夹，然后创建index.html文件，内容如下：

<!DOCTYPE html>
<html>
<head>
  <meta charset="utf-8">
  <title>应用加载中</title>
  <style>
    .loading-container {
      display: flex;
      align-items: center;
      justify-content: center;
      height: 100vh;
      font-size: 24px;
      font-family: Arial, sans-serif;
    }
    .loading-spinner {
      border: 4px solid #f3f3f3;
      border-top: 4px solid #3498db;
      border-radius: 50%;
      width: 40px;
      height: 40px;
      animation: spin 1s linear infinite;
      margin-right: 15px;
    }
    @keyframes spin {
      0% { transform: rotate(0deg); }
      100% { transform: rotate(360deg); }
    }
  </style>
</head>
<body>
  <div class="loading-container">
    <div class="loading-spinner"></div>
    <div>数据加载中，请稍候...</div>
  </div>
  <!-- Shiny自动替换的占位符 -->
  <div id="shiny-app-root"></div>
</body>
</html>

2. 修改Shiny应用启动代码 #

在app.R（或单独的ui.R/server.R）中，指定使用这个自定义入口：

library(shiny)

# global.R中的耗时加载逻辑（示例）
# load_large_dataset <- function() {
#   Sys.sleep(20) # 模拟15-20秒加载时间
#   return(mtcars)
# }
# large_data <- load_large_dataset()

ui <- fluidPage(
  # 你的实际UI内容
  titlePanel("我的Shiny应用"),
  sidebarLayout(
    sidebarPanel(
      selectInput("var", "选择变量", names(large_data))
    ),
    mainPanel(
      plotOutput("plot")
    )
  )
)

server <- function(input, output) {
  output$plot <- renderPlot({
    hist(large_data[[input$var]])
  })
}

# 启动应用时指定自定义index.html
shinyApp(
  ui = ui,
  server = server,
  options = list(
    htmlTemplate = "www/index.html"
  )
)

关键说明 #

• 用户访问应用时，浏览器先加载index.html显示加载提示，此时后台正在执行global.R的数据加载逻辑。
• 一旦global.R执行完成，Shiny会自动将index.html中的#shiny-app-root替换为实际UI，加载提示自动消失。
• 若不需要动画，可简化index.html为纯文本提示，比如：

  <div style="height:100vh;display:flex;align-items:center;justify-content:center;font-size:24px;">加载中...</div>
  <div id="shiny-app-root"></div>
  

备选方案（不推荐） #

如果不想创建自定义HTML，可尝试拆分global.R的加载逻辑：在global.R中先执行少量代码，剩余加载放在Server的session$onSessionStarted中触发，但这会导致UI先显示却无数据，需额外处理加载状态，不符合你“尽量不移到Server”的需求。

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