r自动修改批处理文件

我需要按顺序运行模型，该模型使用多个站点特定的输入文件，为每个站点创建一个输出数据文件，将输出文件移动到结果文件夹，并擦除以前的输入文件，使其为下一次运行做好准备

我使用下面的windows批处理文件进行运行。目前，我必须手动修改每个站点的路径和文件名。因为我想在不同的站点上按顺序运行它，所以最好对它进行修改，这样输入和输出文件以及路径就会自动设置，并从一个包含每个站点所有信息的.csv文件馈送

是否可以创建一个R代码来自动开发所有的.bat文件并按顺序加载它们

@REM  Remove old output files
erase *.bin
erase *.lis
erase *.out

copy "C:\Users\fix\site7_fix.100" "C:\Users\fix.100"
copy "C:\Users\sitepar\site7_sitepar.in" "C:\Users\sitepar.in"
copy "C:\Users\sch\sch1_spinup\site7.sch" "C:\Users\."
copy "C:\Users\wth\site7.wth" "C:\Users\site.wth"
copy "C:\Users\soils_in\site7_soils.in" "C:\Users\soils.in"
copy "C:\Users\site\site7.100" "C:\Users\site.100"

@REM  Run the spinup simulation
erase *.log

model_mlp -s site7 -n site7_spin > site7_spin_log.txt
model_mlp_list100 site7_spin site7_spin outvars.txt

copy site7_spin.lis "C:\Users\output\spinup\vveg_spin.txt"
@REM copy summary.out   "C:\Users\output\spinup\site7_summary_spin.txt"
copy site7_spin_log.txt "C:\Users\logs\site7_spin_log.txt"
@REM copy methane.out   "C:\Users\output\spinup\site7_spin_ch4.txt"

erase site.100
erase site.wth
erase site7_spin.sch
erase *log*

---

或者，是否可以直接修改批处理文件以按顺序在不同的站点上运行？

下面是一个通用示例，说明如何从数据帧创建批处理文件，该文件可以从csv文件读入

df <- data.frame(MyParamater1 = c('This.bat', 'That.bat'),
           MyParamater2 = c('Thing1', 'thing2'),
           stringsAsFactors = F)


for (i in 1:length(df$MyParamater1)) {
  fileConn <- file(df$MyParamater1[i])
  writeLines(c("Hello",
               paste0("Change to", df$MyParamater2[i]), " Site7"), fileConn)
  close(fileConn)
}

#Read File in
fileConn <- file("This.bat")
myNewBat <- readLines(fileConn)
close(fileConn)

#Replace Values
myNewBat <- gsub("Site7", "Site8", myNewBat)

#Write new file
fileConn <- file("MyNewBat.bat")
writeLines(myNewBat, file("fileConn"))
close(fileConn)

shell.exec("MyNewBat.bat")