如何用R Shiny实现导入文件、运行R脚本并导出数据框？

以下是实现需求的完整Shiny代码，核心思路是通过动态替换脚本中的文件路径变量，直接运行你现有的外部脚本，同时适配Shiny的交互流程：

library(shiny)

ui <- fluidPage(
  titlePanel("表格处理工具"),
  sidebarLayout(
    sidebarPanel(
      fileInput("upload", "选择电子表格",
                accept = c(
                  "application/vnd.ms-excel",
                  "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet",
                  ".xls", ".xlsx",
                  "text/csv", ".csv",
                  "text/tab-separated-values", ".tsv"
                )),
      actionButton("run_script", "运行处理脚本"),
      br(), br(),
      downloadButton("download", "下载处理结果")
    ),
    mainPanel(
      verbatimTextOutput("status")
    )
  )
)

server <- function(input, output, session) {
  # 存储处理后的临时文件路径
  result_file <- reactiveVal(NULL)
  
  observeEvent(input$run_script, {
    # 确保用户已上传文件
    req(input$upload)
    
    # 获取上传文件的临时路径
    input_file <- input$upload$datapath
    # 创建临时输出文件，避免文件冲突或堆积
    output_file <- tempfile(fileext = ".xlsx")
    
    # 读取外部R脚本内容
    script_text <- readLines("select_first_two_columns.r")
    
    # 替换脚本中的输入输出文件名变量
    script_text <- gsub("import_file_name", paste0("'", input_file, "'"), script_text)
    script_text <- gsub('"new_name.xlsx"', paste0("'", output_file, "'"), script_text)
    
    # 执行修改后的脚本
    eval(parse(text = script_text))
    
    # 保存结果文件路径
    result_file(output_file)
    
    # 输出运行状态
    output$status <- renderPrint({
      cat("✅ 脚本运行完成\n")
      cat("输入文件:", input$upload$name, "\n")
      cat("结果已准备好下载")
    })
  })
  
  # 下载处理后的文件
  output$download <- downloadHandler(
    filename = function() {
      # 生成带前缀的下载文件名，方便区分
      paste0("processed_", input$upload$name)
    },
    content = function(file) {
      # 将临时文件复制到下载路径
      file.copy(result_file(), file)
    }
  )
}

shinyApp(ui, server)

关键细节说明 #

• 文件上传适配：支持xls、xlsx、csv、tsv等常见电子表格格式，覆盖多数使用场景
• 无侵入脚本修改：不需要改动你的原脚本，通过读取脚本内容并动态替换文件名变量，直接复用现有逻辑
• 临时文件管理：用tempfile生成临时输出文件，避免服务器上的文件冲突和冗余堆积
• 交互流程适配：通过按钮触发脚本运行，运行完成后提供下载入口，同时在界面显示状态反馈

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