Nothing
context("Router modifier (@plumber tag)")
test_that("router modifier works", {
pr <- pr(test_path("files/router-modifier.R"))
expect_equal(class(pr$routes[[1]])[1], "PlumberEndpoint")
expect_equal(names(pr$routes), "avatartare")
})
test_that("$run() causes error", {
expect_error(
pr(test_path("files/router-modifier-run.R")),
"method should not be called while")
})
test_that("new routers can not be returned", {
expect_error(
pr(test_path("files/router-modifier-new.R")),
"not the same as the one provided")
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.