如何在带Shiny的R Markdown中读取并修改上传的.sav文件？

先修正.sav文件读取的核心问题 #

你当前代码的问题是只拿到了上传文件的元信息，没有实际读取文件内容。.sav是SPSS格式文件，需要用haven包的read_sav()函数读取上传后的临时文件路径，才能获取包含表头的完整数据集。

修正后的基础代码（能正确显示数据前5行）：

library(shiny)
library(haven)

ui <- fluidPage(
  fileInput("upload", "上传SPSS调查文件(.sav)", accept = ".sav", width = '100%'),
  tableOutput("head")
)

server <- function(input, output, session) {
  # 读取上传的.sav文件，生成反应式数据框
  raw_data <- reactive({
    req(input$upload)  # 等待用户上传文件
    haven::read_sav(input$upload$datapath)  # 读取临时路径下的.sav文件
  })
  
  # 渲染数据前5行
  output$head <- renderTable({
    head(raw_data(), n = 5L)
  })
}

shinyApp(ui, server)

整合权重计算与下载功能 #

接下来把你的权重计算逻辑加进去，再添加下载按钮，让用户能导出带权重列的新.sav文件。下面是完整示例，你只需要替换权重计算的部分代码即可：

library(shiny)
library(haven)

ui <- fluidPage(
  fileInput("upload", "上传SPSS调查文件(.sav)", accept = ".sav", width = '100%'),
  h3("原始数据预览"),
  tableOutput("raw_head"),
  h3("带权重的数据预览"),
  tableOutput("weighted_head"),
  downloadButton("download_weighted", "下载带权重的.sav文件")
)

server <- function(input, output, session) {
  # 读取原始.sav数据
  raw_data <- reactive({
    req(input$upload)
    haven::read_sav(input$upload$datapath)
  })
  
  # 生成带权重列的数据集
  weighted_data <- reactive({
    data <- raw_data()
    # ----------- 替换成你的权重计算代码 -----------
    # 示例：这里只是简单根据gender列生成权重，你换成自己的逻辑
    data$weight <- ifelse(data$gender == "男", 1.2, 0.8)
    # -------------------------------------------
    data
  })
  
  # 预览原始数据
  output$raw_head <- renderTable({
    head(raw_data(), n = 5L)
  })
  
  # 预览带权重的数据
  output$weighted_head <- renderTable({
    head(weighted_data(), n = 5L)
  })
  
  # 处理下载请求，保存为带权重的.sav文件
  output$download_weighted <- downloadHandler(
    filename = function() {
      paste0("带权重_", input$upload$name)  # 下载文件名加前缀
    },
    content = function(file) {
      haven::write_sav(weighted_data(), file)  # 写入.sav文件
    }
  )
}

shinyApp(ui, server)

几个重要提醒 #

• 确保安装了haven包：运行install.packages("haven")安装，它能完整保留SPSS文件的变量标签、值标签等元数据，避免表头或信息丢失。
• 反应式数据要加括号调用：比如raw_data()，这是Shiny的核心机制，确保数据更新时相关输出自动刷新。
• 权重计算逻辑直接替换：把你本地R脚本中能正常运行的权重计算代码，替换示例中data$weight <- ...的部分即可，注意要基于raw_data()这个反应式数据框操作。

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