router <- Router$new()
router$get(
"/get",
function(req, res) {
res$send("Hello there!")
}
)$post(
"/post",
function(req, res) {
res$send("Goodbye!")
}
)
router$get(
"/hello",
function(req, res) {
forward()
},
function(req, res) {
res$send("Hello!")
}
)
router$post("/bye", function(req, res) {
res$send("Bye!")
})
router$route("/hi")$get(function(req, res) {
res$send("handling a GET request!")
})$post(function(req, res) {
res$send("handling a POST request!")
})
router$get(
c("/path", "/another-path"),
function(req, res) {
res$send("Hola!")
}
)
## ------------------------------------------------
## Method `Router$param()`
## ------------------------------------------------
router <- Router$new()
router$param("id", function(req, res, value, name) {
user <- findUser(value)
req$user <- list(id = value, name = user$name)
forward()
})
router$get("/user/:id", function(req, res) {
res$send(paste("user:", req$user$name))
})
Run the code above in your browser using DataLab