tests/testthat/test-serializer-html.R
In trestletech/plumber: An API Generator for R
context("HTML serializer")
test_that("HTML serializes properly", {
v <- "<html><h1>Hi!</h1></html>"
val <- serializer_html()(v, list(), PlumberResponse$new(), stop)
expect_equal(val$status, 200L)
expect_equal(val$headers$`Content-Type`, "text/html; charset=UTF-8")
expect_equal(val$body, v)
})
test_that("Errors call error handler", {
errors <- 0
errHandler <- function(req, res, err){
errors <<- errors + 1
}
expect_equal(errors, 0)
serializer_html()(parse(stop("I crash")), list(), PlumberResponse$new("json"), errorHandler = errHandler)
expect_equal(errors, 1)
})
trestletech/plumber documentation built on March 16, 2024, 8:21 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
context("HTML serializer")
test_that("HTML serializes properly", {
v <- "<html><h1>Hi!</h1></html>"
val <- serializer_html()(v, list(), PlumberResponse$new(), stop)
expect_equal(val$status, 200L)
expect_equal(val$headers$`Content-Type`, "text/html; charset=UTF-8")
expect_equal(val$body, v)
})
test_that("Errors call error handler", {
errors <- 0
errHandler <- function(req, res, err){
errors <<- errors + 1
}
expect_equal(errors, 0)
serializer_html()(parse(stop("I crash")), list(), PlumberResponse$new("json"), errorHandler = errHandler)
expect_equal(errors, 1)
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.