# NOT RUN {
handler_404 <- function(req, res) {
res$status <- 404
res$body <- "Oops"
}
pr() %>%
pr_get("/hi", function() "Hello") %>%
pr_set_404(handler_404) %>%
pr_run()
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab