是否有R函数可复制生成分析过程所用的全部源代码？

针对你需要保留run_experiment.rmd和依赖.r脚本历史版本、确保能复现原始分析的需求，这里有几个实用方案：

1. 自动复制代码到时间戳输出文件夹 #

每次运行分析时，在生成输出的逻辑里加入代码复制步骤，把当前使用的所有代码文件同步到对应的时间戳文件夹中，和输入数据、分析结果放在一起，确保每套输出对应唯一的代码版本。

示例R代码（可放在run_experiment.rmd开头或调用的初始化脚本里）：

# 生成带时间戳的输出文件夹
output_dir <- paste0("./analysis_output_", format(Sys.time(), "%Y%m%d_%H%M%S"))
dir.create(output_dir, recursive = TRUE)

# 复制当前Rmd文件到输出文件夹
file.copy("run_experiment.rmd", file.path(output_dir, "run_experiment.rmd"))

# 复制依赖的所有.r脚本（假设脚本都在./scripts目录下）
script_folder <- "./scripts"
all_r_scripts <- list.files(script_folder, pattern = "\\.r$", full.names = TRUE)
file.copy(all_r_scripts, output_dir, overwrite = TRUE)

2. 用Git追踪代码版本 #

如果不想复制大量文件，用Git管理代码的版本变更，同时在输出文件夹中记录当前代码的Git提交哈希，后续需要复现时直接切换到对应版本即可。

操作步骤： #

• 初始化Git仓库（未初始化的话）：git init，将Rmd和所有R脚本纳入Git管理
• 每次修改代码后提交版本：git add . && git commit -m "本次修改描述，比如：调整数据分组逻辑"
• 在分析代码中加入逻辑，把当前Git提交哈希写入输出文件夹的日志：

# 获取当前Git提交的完整哈希
commit_hash <- system("git rev-parse HEAD", intern = TRUE)

# 写入版本信息到输出文件夹的日志文件
writeLines(c(
  paste("分析运行时间:", Sys.time()),
  paste("代码版本哈希:", commit_hash)
), file.path(output_dir, "code_version_info.txt"))

后续需要复现分析时，执行git checkout <记录的哈希值>即可切换到对应代码版本，重新运行分析。

3. 用工作流管理包追踪依赖与版本 #

如果项目需要长期维护，可以用targets或drake这类R工作流包，它们会自动追踪代码、数据和输出的依赖关系，还能保存每个分析步骤的代码快照，方便回溯复现。不过该方案需要重构现有分析流程，更适合复杂度较高的项目。

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