r - R中的tryCatch无法正常工作

Question

我有以下 R 代码：

tryCatch( {pre_symbol=read.table(file=filePre,header=FALSE,sep=",")}
         , error = function(e) {loadError = TRUE} )

当输入文件 (filePre) 为空时，tryCatch 不会将全局变量 loadError 设置为 TRUE。这会在我的代码中产生问题（当 loadError==false 时执行的代码假定 filePre 不为空）tryCatch 应该阻止的问题。但是，当我删除 tryCatch 语句并尝试通过 read.Table 加载时，出现错误

read.table 中的错误（file = filePre，header = FALSE，sep = ",") ：输入中没有可用的行

在这种情况下，这是预期的。我不知道为什么这不起作用。它适用于我集中的大多数其他文件。

Answer 1

您应该在此处使用全局赋值运算符<<-，例如：

loadError = FALSE
toto <- function(){

  tryCatch(stop("dummy error"),error=function(e)loadError <<- TRUE)
}

> toto()
> loadError
[1] TRUE

Answer 2

避免使用“全局分配”的一些替代方法（除非在特定情况下，它并不是真正的全局）：

使用存在：

tryCatch({
    stop("Error")
    pre_symbol <- "blah"
}, error = function(e) {
    print(e)
})

if(exists("pre_symbol")){
    print(pre_symbol)
}

使用 NULL：

pre_symbol <- NULL
tryCatch({
    stop("Error")
    pre_symbol <- "blah"
}, error = function(e) {
    print(e)
})

if(!is.null(pre_symbol)){
    print(pre_symbol)
}

使用选项：

options(myLoadError=FALSE)
tryCatch({
    stop("Error")
    pre_symbol <- "blah"
}, error = function(e) {
    print(e)
    options(myLoadError=TRUE)
})

if(!isTRUE(getOption("myLoadError"))){
    print(pre_symbol)
}

使用环境：

loadErrors <- new.env(parent=emptyenv())
tryCatch({
    stop("Error")
    pre_symbol <- "blah"
}, error = function(e) {
    print(e)
    loadErrors[["pre_symbol"]] <- TRUE
})

if(!isTRUE(loadErrors[["pre_symbol"]])){
    print(pre_symbol)
}

我个人倾向于使用 NULL 模式。

Answer 3

虽然<<-可以肯定，但弄乱GlobalEnv. 为什么不检查错误并在出现loadError问题时进行更新——在匿名函数之外，而不会在顶级环境中搞砸一些事情：

loadError <- inherits(tryCatch({
    pre_symbol = read.table(file = filePre, header = FALSE, sep = ",")
}, error = function(e) e), 'error')

Answer 4

您可以只使用 try() 函数：

pre_symbol <- try(read.table(file=filePre,header=FALSE,sep=","))
loadError <- is(pre_symbol, 'try-error')