扩展名 Rmd 替换为 qmd

[XiangyunHuang]

# 原 Rmd 文件
origin_rmd_files <- list.files(pattern = ".Rmd$")
# 替换的 qmd 文件
replace_qmd_files <- gsub(x = origin_rmd_files, pattern = "(Rmd$)", replacement = "qmd")
# 重命名 Rmd 文件
file.rename(from = origin_rmd_files, to = replace_qmd_files)