在带runtime:shiny的R Markdown中跨代码块复用上传数据

核心思路 #

在带runtime: shiny的R Markdown中，不能依赖全局环境（.GlobalEnv）共享数据——点击「Run Document」时，文档会在独立进程中执行，全局赋值无法跨代码块传递。正确的做法是用Shiny内置的reactiveValues创建一个全局可访问的响应式容器，所有代码块通过这个容器读写上传数据。

具体步骤 #

1. 初始化全局响应式容器 #

在文档开头的单独代码块（比如setup块）中定义reactiveValues，作为数据共享的载体：

# 全局响应式容器，存储上传数据
rv <- reactiveValues(uploaded_data = NULL)

2. 修改上传模块的逻辑 #

在包含fileInput的Shiny代码块中，将读取到的数据存入rv：

ui <- fluidPage(
  fileInput("file_upload", "选择数据文件", accept = c(".csv", ".xlsx"))
)

server <- function(input, output, session) {
  # 监听文件上传事件，更新全局容器中的数据
  observeEvent(input$file_upload, {
    req(input$file_upload)  # 确保文件已上传
    
    # 根据文件类型读取数据
    file_path <- input$file_upload$datapath
    if (grepl("\\.csv$", input$file_upload$name)) {
      rv$uploaded_data <- read.csv(file_path)
    } else if (grepl("\\.xlsx$", input$file_upload$name)) {
      rv$uploaded_data <- readxl::read_excel(file_path)
    }
  })
}

shinyApp(ui, server)

3. 在后续代码块中复用数据 #

不管是Shiny代码块还是需要输出内容的非Shiny代码块，都通过rv$uploaded_data访问数据，且必须放在Shiny的响应式上下文（如render*函数）中，用req()确保数据已加载：

示例1：非Shiny代码块（输出数据预览）

output$data_preview <- renderPrint({
  req(rv$uploaded_data)  # 等待数据上传完成
  cat("数据前5行预览：\n")
  head(rv$uploaded_data)
})

在文本区域中添加uiOutput("data_preview")即可展示结果。

示例2：独立Shiny代码块（生成统计摘要）

ui <- fluidPage(
  verbatimTextOutput("data_summary")
)

server <- function(input, output, session) {
  output$data_summary <- renderPrint({
    req(rv$uploaded_data)
    summary(rv$uploaded_data)
  })
}

shinyApp(ui, server)

关键注意事项 #

• 所有依赖上传数据的代码必须包裹在Shiny响应式函数（render*/observe/reactive）中，否则无法响应数据变化。
• 始终用req(rv$uploaded_data)做前置判断，避免数据未加载时出现报错。
• 不要使用<<-或assign(..., .GlobalEnv)这类全局赋值方法，在「Run Document」模式下完全无效。

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