R Shiny实现CSV上传计算后下载仅返回原始数据问题求解

问题根因 #

• 计算逻辑仅在renderTable()内部执行，未将加工后的数据集封装为独立响应式变量，下载函数调用的是未做计算的原始数据集rawData()
• 现有计算代码存在笔误：所有无水校正字段都错误乘以了SiO2，需替换为对应氧化物的原始数值，否则计算结果不符合无水校正逻辑

修正后完整代码 #

library(shiny)
library(dplyr)

ui <- fluidPage(
    titlePanel("全岩无水转换计算工具"),
    sidebarLayout(
        sidebarPanel(
            fileInput(
                inputId = "csvFile",
                label = "上传CSV格式数据文件",
                accept = c(".csv")
            ),
            downloadButton("download", "导出无水校正后数据")
        ),
        mainPanel(
            tableOutput("modifiedData")
        )
    )
)

server <- function(input, output) {
    # 读取用户上传的原始数据
    rawData <- eventReactive(input$csvFile, {
        read.csv(input$csvFile$datapath)
    })
    
    # 抽离计算逻辑为独立响应式变量，表格渲染和下载功能共用该变量
    processedData <- reactive({
        req(rawData())
        rawData() %>%
            mutate(
                LOI_Factor = Total/(Total-LOI),
                Anhydrous = "",
                # 提前计算总氧化物和，避免重复书写长串代码降低出错概率
                total_oxide = SiO2 + TiO2 + Al2O3 + Fe2O3 + MnO + MgO + CaO + Na2O + K2O + Cr2O3 + P2O5 + SrO + BaO,
                # 修正各氧化物校正逻辑，乘以对应氧化物自身的原始值
                SiO2_anh = SiO2 * (100 / total_oxide),
                TiO2_anh = TiO2 * (100 / total_oxide),
                Al2O3_anh = Al2O3 * (100 / total_oxide),
                Fe2O3_anh = Fe2O3 * (100 / total_oxide),
                MnO_anh = MnO * (100 / total_oxide),
                MgO_anh = MgO * (100 / total_oxide),
                CaO_anh = CaO * (100 / total_oxide),
                Na2O_anh = Na2O * (100 / total_oxide),
                K2O_anh = K2O * (100 / total_oxide),
                Cr2O3_anh = Cr2O3 * (100 / total_oxide),
                P2O5_anh = P2O5 * (100 / total_oxide),
                SrO_anh = SrO * (100 / total_oxide),
                BaO_anh = BaO * (100 / total_oxide)
            ) %>%
            # 可自行注释掉下行代码保留临时计算的总氧化物列
            select(-total_oxide)
    })
    
    # 渲染表格调用处理完成的数据集
    output$modifiedData <- renderTable({
        processedData()
    })
    
    # 下载函数调用处理完成的数据集
    output$download <- downloadHandler(
        filename = function() {
            paste0("无水校正数据_", Sys.Date(), ".csv")
        },
        content = function(file){
            write.csv(processedData(), file, row.names = FALSE)
        }
    )
}

shinyApp(ui = ui, server = server)

补充说明 #

• 新增了req(rawData())判断，避免用户未上传文件时计算逻辑触发报错
• 修正了原文件名生成逻辑的重复后缀问题，导出文件命名更规范
• 重复计算的总氧化物和提取为临时变量，后续如果需要调整氧化物组分仅需修改一处即可

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