Nothing
context("cgi")
test_that("cgiRequest() returns the correct object", {
# setup
testParams <- "foo=1%2B1%3D2&bar=yin%26yang"
requestObj <- list(
params = list(foo = "1+1=2",
bar="yin&yang"),
headers = list(),
method = "GET",
raw = NULL,
content_type = NULL,
protocol = "http",
body = NULL
)
expect_equal(cgiRequest(testParams),
requestObj)
})
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.