如何通过代码自动创建并保存.rmd文件至指定目录

要实现用代码替代手动操作，把当前打开的R-Markdown文件以template.rmd为名保存到指定的Template文件夹，可借助RStudio官方提供的rstudioapi工具包完成，具体操作如下：

1. 准备工作：安装并加载rstudioapi包 #

这个包专门用于和RStudio编辑器交互，默认可能未安装，先执行以下代码：

# 仅首次运行需要安装
install.packages("rstudioapi")
# 加载包
library(rstudioapi)

2. 整合文件夹创建与文件保存逻辑 #

结合你已有的文件夹创建代码，添加保存文件的逻辑，提供两种适配不同场景的方法：

方法一：直接读取编辑器内容写入目标文件（适合未手动保存过的新建文档） #

# 设置工作目录为桌面
setwd("~/Desktop") 
# 创建Template文件夹（避免重复创建报错）
if (!dir.exists("Template")) {
  dir.create("Template")
}
# 创建子目录
dir.create(file.path("Template", "Results"), showWarnings = FALSE)
dir.create(file.path("Template", "Code"), showWarnings = FALSE)
dir.create(file.path("Template", "Data"), showWarnings = FALSE)

# 定义目标文件路径
target_file <- file.path("~/Desktop/Template", "template.rmd")
# 获取当前编辑器里的Rmd文档内容
current_doc_content <- getActiveDocumentContext()$contents
# 写入内容到目标文件
writeLines(current_doc_content, con = target_file)

方法二：复制已保存的原文件到目标位置（适合已手动保存过的文档） #

# 设置工作目录为桌面
setwd("~/Desktop") 
# 创建Template文件夹及子目录（同上）
if (!dir.exists("Template")) {
  dir.create("Template")
}
dir.create(file.path("Template", "Results"), showWarnings = FALSE)
dir.create(file.path("Template", "Code"), showWarnings = FALSE)
dir.create(file.path("Template", "Data"), showWarnings = FALSE)

# 获取当前文档的原始保存路径
original_file_path <- getActiveDocumentContext()$path
# 定义目标文件路径
target_file <- file.path("~/Desktop/Template", "template.rmd")
# 复制文件，overwrite=TRUE表示覆盖已存在的同名文件
file.copy(from = original_file_path, to = target_file, overwrite = TRUE)

补充说明 #

• 方法一无需原文档提前保存，直接读取编辑器中的实时内容写入新文件；
• 方法二要求原文档已经手动保存过（有实际的本地路径），否则original_file_path会返回空值；
• 代码中showWarnings = FALSE用于避免文件夹已存在时弹出警告信息，按需调整即可。

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