Nothing
context("Preempts")
test_that("preempts work", {
r <- pr(test_path("files/preempt.R"))
expect_equal(length(r$endpoints), 3)
expect_length(r$endpoints[["testFun"]], 1)
expect_length(r$endpoints[["testFun2"]], 1)
expect_length(r$endpoints[["testFun3"]], 1)
})
test_that("Redundant preempts fail", {
expect_error(pr(test_path("files/preempt-redundant.R")), regexp="Multiple @preempts")
})
test_that("Empty preempts fail", {
expect_error(pr(test_path("files/preempt-empty.R")), regexp="No @preempt specified")
})
test_that("Non-existant preempts fail", {
expect_error(pr(test_path("files/preempt-nonexistent.R")), regexp="The given @preempt")
})
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.