if (FALSE) { # interactive()
# always return 'Success:' followed by the requested path
s = servr::create_server(handler = function(req) {
list(status = 200L, body = paste("Success:", req$PATH_INFO))
})
s$url
browseURL(paste0(s$url, "/hello"))
browseURL(paste0(s$url, "/world"))
s$stop_server()
}
Run the code above in your browser using DataLab