req <- new.env()
res <- new.env()
http_try(req, res)
res$status
http_try(req, res, { 2 + 2 })
res$status
http_try(req, res, http_error(401))
res$status
http_try(req, res, http_success(201))
res$status
http_try(req, res, { lm(NULL) })
res$status
http_try(req, res, { stop("Stop!!!") })
res$status
f <- function() stop("Stop!!!")
http_try(req, res, { f() })
res$status
http_try_handler(req, res, { try(f()) })
res$status
Run the code above in your browser using DataLab