在R中使用Try Catch时出现问题

Question

我是R的新手。如果是基本查询，请原谅我。我正面临一个奇怪的情况，我正在使用try catch来捕获错误和警告，同时采购另一个脚本。它也很好用。但是，在一个特定的情况下，在获取时，会出现一条错误消息，后面跟一条警告消息，但是我的脚本中的try catch仅将其视为警告消息。 请按以下方式查找我的代码

result1 <- tryCatch ({
source("Path with script.R")
inc_val = 1
},  error = function(er) {
inc_val = 2
} ,  warning = function(er) {
inc_val = 3
},finally = {
})

因此在这种特殊情况下，即使执行脚本时出错，result1也是3而不是2。

请让我知道我在哪里犯了错误。

提前致谢。