if (FALSE) {
# Will contain the original error message
pr() %>%
pr_set_debug(TRUE) %>%
pr_get("/boom", function() stop("boom")) %>%
pr_run()
# Will NOT contain an error message
pr() %>%
pr_set_debug(FALSE) %>%
pr_get("/boom", function() stop("boom")) %>%
pr_run()
}
Run the code above in your browser using DataLab