很多时候简单的try函数就能够增加脚本的鲁棒性，随着脚本逐渐复杂，一些较高级的错误处理函数就必不可少了，我们今天来介绍几个R中的
1. tryCatch() 函数
功能: tryCatch() 函数是一种更复杂...
很多时候简单的try函数就能够增加脚本的鲁棒性，随着脚本逐渐复杂，一些较高级的错误处理函数就必不可少了，我们今天来介绍几个R中的
1. tryCatch() 函数
功能: tryCatch() 函数是一种更复杂的错误处理机制。它不仅可以捕获错误，还可以定义针对不同类型错误的具体处理行为，基本是try的上位替代，还在try的框架内。
tryCatch({
log(-1) # 可能错误的代码
}, warning = function(w) {
print("警告")
}, error = function(e) {
print("错误")
}, finally = {
print("这是最终的代码块，无论如何都会执行")
})2. stopifnot()
功能: stopifnot() 函数用于断言检查，确保给定的条件为真。如果条件不满足，则函数会产生错误。这是一种快捷的方式来保证函数的输入或状态符合预期。
myFunction <- function(x) {
stopifnot(is.numeric(x), x > 0)
# 如果 x 不是数值类型或者不大于0，上面的代码会停止执行并抛出错误
...
has_na <- anyNA(marker_table(nested_results[[res_name]])$enrich_group)
stopifnot(!has_na)
# 其他计算
}
myFunction("a") # 会抛出错误2. withCallingHandlers() 和 withRestarts()
功能: 这两个函数用于更复杂的错误处理场景。withCallingHandlers() 允许定义错误处理程序，而 withRestarts() 允许定义恢复点，以便在错误发生时选择不同的恢复策略。
withCallingHandlers({
withRestarts({
sqrt(-1) # 产生错误的代码
}, myRestart = function() "选择了自定义的恢复策略")
}, warning = function(w) {
print("发生了警告")
}, error = function(e) {
invokeRestart("myRestart")
})
