Question

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

我使用下面的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*

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

Answer 1

以下是如何从数据框创建批处理文件的一般示例，可以从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)

然后您可以直接从R：

执行批处理文件

shell.exec("MyNewBat.bat")

r自动修改批处理文件

1 个答案: