R tryCatch 块中的变量范围：<<- 是否需要更改在 tryCatch 之前定义的局部变量？

Question

考虑以下代码：

test1 <- "a"
test2 <- "a"
tryCatch(stop(), error= function(err){
  print(test1)
  print(test2)
  test1 <- "b"
  test2 <<- "b"
})

结果：

print(test1)
[1] "a"
print(test2)
[1] "b"

变量test1的值在tryCatch块内是可见的，但是用“

如果用

在 tryCatch 块中使用

编辑：根据 Bernhard 的回答，以下代码是否弥补了解决此问题的正确方法？

test1 <- "a"
test2 <- "a"
new_values<-tryCatch(
  {
    print("hello")
    stop()
  }
, error= function(err){
  # I want to change the test1 and test 2 variables to "b" only if error occurred.
  test1 <- "b"
  test2 <- "b"
  return(list(test1=test1,test2=test2))
})
if (is.list(new_values))
{
  test1<-new_values$test1
  test2<-new_values$test2
}

结果：

> print(test1)
[1] "b"
> print(test2)
[1] "b"

Answer 1

'

test2 <- "a"

test2 <- tryCatch(stop(), error= function(err){
  somevariable <- "b"
  return(somevariable)
})

这让每个人都清楚，顶层 test2 设置为“a”，然后顶层 test2 设置为其他值。使用 '

如果需要返回多个结果，则返回结果的列表或对象。

编辑：OP 指出您需要小心返回语句，因为它们不仅结束当前块，而且结束当前函数。一个可能的解决方案是，在函数而不是简单块中运行计算。以下示例应说明这一点：

safediv <- function(a, b){
    normalDo <- function(a, b){
        return(list(value=a/b, message=NULL))
    }
    exceptionalDo <- function(err){
        return(list(value=NaN, message="caught an error! Change global variable?"))
    }
    results <- tryCatch(normalDo(a, b), error=exceptionalDo)
    print("safediv is still running after the returns within the functions.")
    return(results)
}

# try it out  
safediv(5, 3)
safediv(5, 0)
safediv(5, "a")