如何通过Shiny输入日期参数，修改并执行指定RScript？

完整Shiny应用代码 #

library(shiny)

ui <- fluidPage(
  titlePanel("自动修改并执行数据处理脚本"),
  sidebarLayout(
    sidebarPanel(
      numericInput("day_input", "输入日期日值", 
                   value = 1, min = 1, max = 31, step = 1),
      actionButton("run_script", "执行脚本"),
      br(),
      textOutput("status_msg")
    ),
    mainPanel(
      verbatimTextOutput("script_output")
    )
  )
)

server <- function(input, output) {
  # 定义目标脚本路径（根据实际路径修改）
  script_path <- "example_script.R"
  
  observeEvent(input$run_script, {
    # 读取目标脚本内容
    script_lines <- readLines(script_path)
    
    # 定位并修改指定代码行（匹配包含day_param的行）
    target_line <- grep("day_param <-", script_lines)
    if (length(target_line) > 0) {
      script_lines[target_line] <- paste0("day_param <- ", input$day_input)
      # 保存修改后的脚本
      writeLines(script_lines, script_path)
      
      # 执行脚本并捕获输出
      output$script_output <- renderPrint({
        source(script_path, echo = TRUE)$value
      })
      
      output$status_msg <- renderText({
        paste0("已成功修改日参数为", input$day_input, "并执行脚本")
      })
    } else {
      output$status_msg <- renderText({
        "错误：未找到目标参数行"
      })
    }
  })
}

shinyApp(ui = ui, server = server)

目标R脚本示例（example_script.R） #

# 数据处理脚本示例
day_param <- 15  # 这是需要自动修改的日参数

# 后续数据处理逻辑示例
cat("今日处理的日参数：", day_param, "\n")
# ... 其他数据处理代码

关键逻辑说明 #

• 读取脚本：用readLines()读取目标脚本的所有行到字符向量中
• 定位目标行：通过grep("day_param <-", script_lines)找到包含目标参数定义的行
• 修改并保存：替换该行的数值为输入框的值，再用writeLines()写回原文件
• 执行脚本：用source()执行修改后的脚本，echo = TRUE会在页面输出脚本执行过程

注意事项 #

• 确保script_path指向正确的脚本文件路径，建议将脚本放在Shiny应用的同目录下，或者使用绝对路径
• 运行Shiny的用户需要有该脚本文件的读写权限
• 如果脚本中有其他依赖包，需要确保Shiny环境已安装这些包
• 可按需扩展功能：比如添加日期范围验证、历史修改记录、更完善的错误捕获等

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