r语言 - 如何在没有全局变量或超级赋值的情况下使用 tryCatch

Question

我正在编写一个具有以下形式的tryCatch()循环的 R 包，其中我首先尝试使用容易出错的方法拟合模型，但如果第一个方法失败，则使用更安全的方法：

# this function adds 2 to x
safe_function = function(x) {
tryCatch( {
# try to add 2 to x in a stupid way that breaks
new.value = x + "2"
}, error = function(err) {
message("Initial attempt failed. Trying another method.")
# needs to be superassignment because inside fn
assign( x = "new.value",
value = x + 2,
envir=globalenv() )
} )
return(new.value)
}
safe_function(2)

此示例按预期工作。但是，使用assign会在检查软件包是否准备好 CRAN 时触发一条注释：

Found the following assignments to the global environment

如果我用<<-替换assign，也会发生类似的问题。我能做什么？

Answer 1

我不确定您为什么要尝试在此处使用全局范围。您可以只从try/catch返回值。

safe_function = function(x) {
new.value <-   tryCatch( {
# try to add 2 to x in a stupid way that breaks
x + "2"
}, error = function(err) {
message("Initial attempt failed. Trying another method.")
x + 2
} )
return(new.value)
}