Shiny能否向已存在的Excel工作簿追加新工作表？

问题核心 #

当前代码里downloadHandler的file参数是全新临时文件，并非用户上传的原始工作簿，因此write.xlsx2(..., append=TRUE)无法实现追加——它只是在新文件里创建工作表，而非修改原文件。要实现追加，必须先操作原始工作簿的副本，再输出修改后的副本。

修改方案 #

1. 上传文件后，将原始工作簿复制到持久临时路径（避免原临时文件被Shiny自动清理）
2. 在这个副本上使用write.xlsx2(append=TRUE)追加新工作表
3. 通过downloadHandler输出修改后的副本

修改后的完整代码 #

library(shiny)
library(xlsx)
library(readxl)

ui <- fluidPage(   
    titlePanel("Writer App"),
    sidebarLayout(
        sidebarPanel(
            fileInput("file","读取Excel文件", accept = ".xlsx"),
            downloadButton('download1',"保存修改后的Excel")
        ),
        mainPanel(tableOutput("table1"))
    )
)

server <- function(input, output) {
    # 用反应式变量存储修改后的工作簿路径
    modified_wb_path <- reactiveVal(NULL)
    
    observeEvent(input$file,{
        # 1. 复制原始文件到新临时路径
        original_path <- input$file$datapath
        temp_wb_path <- tempfile(fileext = ".xlsx")
        file.copy(original_path, temp_wb_path, overwrite = TRUE)
        
        # 2. 读取并处理数据
        data <- read_xlsx(original_path, sheet = "Test_data")
        div_mtx <- data/5
        
        # 3. 向副本工作簿追加新工作表
        write.xlsx2(div_mtx, temp_wb_path, sheetName="div_mtx", row.names=FALSE, append=TRUE)
        
        # 保存修改后的工作簿路径
        modified_wb_path(temp_wb_path)
        
        # 渲染处理后的数据
        output$table1 <- renderTable({    
            div_mtx
        })
    })
    
    # 下载修改后的工作簿
    output$download1 <- downloadHandler(
        filename = input$file$name,
        content = function(file) {
            # 将修改后的临时文件复制到下载输出路径
            file.copy(modified_wb_path(), file, overwrite = TRUE)
        }
    )
}

shinyApp(ui,server)

关键修改点说明 #

• reactiveVal存储路径：用modified_wb_path保存修改后的工作簿路径，确保downloadHandler能获取到正确文件
• 复制原始文件：通过file.copy将用户上传的原始Excel复制到新临时文件，避免直接操作Shiny的临时上传文件（该文件可能被自动清理）
• 追加工作表到副本：write.xlsx2的目标路径是复制后的临时工作簿，此时append=TRUE会真正在原工作簿基础上添加新工作表
• 下载副本：downloadHandler的content函数将修改后的临时文件复制到下载输出路径，实现带新工作表的原工作簿下载

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