Nothing
test_that("minimal", {
lines <- c(
"do.call(mean, list(c(1, 2, 3)))",
"do.call('mean', list(c(1, 2, 3)))",
"do.call(\"mean\", list(c(1, 2, 3)))"
)
expect_true(all(PaRe:::getDoCallFromLines(lines) == "mean"))
})
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.