r - 如有任何错误，停止执行代码

Question

我有一个代码，我一个接一个地采购多个代码。像下面这样

source("t1.r")
source("t2.r")
source("t3.r")
source("t4.r")

在运行此主脚本时，如果任何源语句给出了错误，我不想获取任何剩余的脚本(即，不想运行任何后续语句)。

我不想在每个源语句后写错误条件。我只想在开始时做一些通用的事情。

为此，我应该在主脚本中进行哪些更改？

Answer 1

根据 Nicola和RHertel 的建议进行编辑

setwd("/Users/xxxx/Desktop/Sub")
scripts<-list.files(pattern="*.R")         

for (f in scripts)
{
  c<-try(source(f))                        
  ifelse (class(c)!="try-error", print(paste("Script Sourced:", f,sep=" ")), setwd("/Users/xxxx/Desktop")             
}

该脚本打印源脚本。这样一来，您可以识别出没有来源。