f1 <- function(x1) f2(x1)
f2 <- function(x2) f3(x2)
f3 <- function(x3) f4(x3)
f4 <- function(x4) f5(x4)
f5 <- function(x5) "A" + x5
f1(1)

 Error in "A" + x5 : 
 non-numeric argument to binary operator 

• 默认遇到错误时，调用的调试选项是

getOption("error")

## NULL

• 可以改为browser，则遇错自动进入动态调试

options(error = browser)

• 断点(break point)是常用的调试技术
• 可以在自己的函数或代码块中机智地设置断点
  • RStudio中，在行号左侧点击一下，可设置一个断点
  • 在代码中插入一行browser
• 运行时，程序会在断点处暂停
  • 将browser()插入到第一行，即相当于运行时debug()
  • debug()函数正是这么做的
• 查看无误后，Shift+F9继续执行

出现错误默认整体退出，不返回结果

f <- function(x){
    log(x)
    2
}
f("1")

Error in log(x) : non-numeric argument 
    to mathematical function

try捕捉到的错误结果属于"try-error"类

class(try(log("1")))

[1] "try-error"

tryCatch(expr, ..., finally)

• tryCatch不但能捕捉错误，还提供了一个异常处置框架
• 将异常状况匹配给不同的处置程序(handler)进行处理

举个例子:

show_cond <- function(expr, ...){
    tryCatch(expr, 
        error=function(cond) "error", 
        warning=function(cond) "warn",
        message=function(cond) "msg",
        finally=cat("The output: "))
}

f1 <- function() f2()
f2 <- function() stop("Stop!")
tryCatch(f2(), error=function(e) 
    print(sys.calls()))

[[1]] tryCatch(f2(), error = function(e) 
    print(sys.calls()))
[[2]] tryCatchList(expr, classes, 
    parentenv, handlers)
[[3]] tryCatchOne(expr, names, parentenv, 
    handlers[[1L]])
[[4]] value[[3L]](cond)

• match.arg + if/stop 或 stopifnot

f <- function(x, fun=c("mean", "median")){
    # 确保x是纯数值
    stopifnot(all(sapply(x, is.numeric)))
    # 确保fun只能是列表中规定的三个
    fun <- match.arg(fun)
    switch(fun, mean=lapply(x, mean), 
        median=lapply(x, median), 
        var=lapply(x, var))
}

f(1:10, "sum")

Error in match.arg(fun) : 'arg' should be 
    one of “mean”, “median”, “var”

f1 <- function(df, cond)
    df[cond,]

f1(mtcars, mtcars$mpg>33)

                mpg cyl disp hp drat ... carb
Toyota Corolla 33.9   4 71.1 65 4.22 ...    1