R Shiny响应式上传清洗的数据无法多函数复用报错怎么办？

根因定位 #

一共存在3类核心错误，对应你遇到的两个报错：

• 参数误用错误：触发unused arguments报错。read_excel来自readxl包，本身不存在header和stringsAsFactors两个参数：控制是否读取首行作为表头的参数为col_names，且readxl默认返回tibble格式，不会自动将字符串转换为因子，不需要配置该参数。
• 响应式逻辑写反错误：data_step1中你写的if(!is.null(inFile)) {return(NULL)}逻辑完全倒置，含义是「只要用户上传了文件就返回空值」，和预期逻辑完全相反。
• 调用逻辑错误：data_step1已经完成了Excel文件读取、返回数据框的操作，但你在cleaned_data中又将data_step1()的返回值作为文件路径传给read_excel，等于用数据框当路径，触发path must be a string报错；同时renderText中直接调用内部局部变量wbb1、最后返回数据框的写法也不符合Shiny的要求。

修复后代码 #

响应式数据处理代码 #

data_step1 <- reactive({ 
  req(input$file1) # 替代原有的空值判断，更符合Shiny写法，文件未上传时直接终止运行
  inFile <- input$file1
  # 注意col_names对应原来的header参数，不需要stringsAsFactors
  raw_data <- read_excel(inFile$datapath, col_names = input$header)
  raw_data
}) 

cleaned_data <- reactive({
  req(data_step1()) # 确保上游数据存在再运行
  # 直接从已读取的data_step1()中提取数据，不需要再调用read_excel
  col_names <- array(slice(data_step1(), 1)) # 取第一行作为表头
  rawdata <- slice(data_step1(), 4:nrow(data_step1())) # 跳过前3行取数据
  colnames(rawdata) <- col_names
  
  wbb1 <- rawdata %>% select(11:36) 

  # 单位转换
  wbb1$VO2 <- as.numeric(wbb1$VO2)/1000 
  wbb1$VCO2 <- as.numeric(wbb1$VCO2)/1000

  wbb1
})

输出调用代码 #

output$output4 <- renderText({
  req(cleaned_data())
  # 直接用列名拟合，不需要调用局部变量wbb1
  watts.vo2.lm <- lm(Power ~ VO2, data = cleaned_data())
  # 直接返回R平方值，符合renderText的输出要求
  paste("拟合R平方为：", round(summary(watts.vo2.lm)$r.squared, 4))
})

额外注意事项 #

• 如果你确实需要将字符串列转为因子，可以在cleaned_data中增加代码：wbb1 <- wbb1 %>% mutate(across(where(is.character), as.factor))
• 如果需要输出完整的清洗后数据，不要用renderText，改用renderTable或者renderDataTable。

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