如何暂停 R 脚本直到 cmd 提示符运行？

发布于 2025-01-16 22:28:49 字数 667 浏览 5 评论 0原文

如何在 Rscript 中指定暂停，直到命令提示符打开？我正在运行 Rscript，其中将通过命令提示符执行批处理文件。后来我想将执行批处理文件的产品复制到另一个文件夹。然而，Rscript 会在写入时尝试进行复制。

这个批处理文件将打开多个cmd提示符来执行多个文件，因此我不想使用“shell”、“system”或“system2”来代替“shell.exec2” 。

lapply(1:num_cores, function(o) {
  ## batch file location
  loc <- paste0(projectfolder_location, pp, "\\ppfolder_", o, ".Sufi2.SwatCup")
  ## executing batch file
  shell.exec2(paste0(pp_folder, "\\SUFI2_Run.bat")) 
})

#PAUSING HERE until cmd prompt is open!!
file.copy(list.files(
  path=paste0(projectfolder_location, pp, "\\ppfolder_", 1, ".Sufi2.SwatCup"), 
  pattern="Name.out$", full.name=TRUE), projectfolder, overwrite=TRUE)

原文

How can I assign with in Rscript to pause until the command prompt is open?
I am running a Rscript where a batch file will be executed through command prompt. Later I want to copy a product of executed batch file to another folder. However, Rscript tries to copy while it is being written.

This batch file will open multiple cmd prompts to execute multiple files, so I don't want to use "shell", "system", or "system2" instead of "shell.exec2".

lapply(1:num_cores, function(o) {
  ## batch file location
  loc <- paste0(projectfolder_location, pp, "\\ppfolder_", o, ".Sufi2.SwatCup")
  ## executing batch file
  shell.exec2(paste0(pp_folder, "\\SUFI2_Run.bat")) 
})

#PAUSING HERE until cmd prompt is open!!
file.copy(list.files(
  path=paste0(projectfolder_location, pp, "\\ppfolder_", 1, ".Sufi2.SwatCup"), 
  pattern="Name.outquot;, full.name=TRUE), projectfolder, overwrite=TRUE)

分享到QQ

分享到微博