Nothing
test_that("util_backtickQuote works", {
expect_equal(util_backtickQuote(""), "")
expect_equivalent(util_backtickQuote(NA), NA_character_)
nm <- paste(letters, LETTERS)
t <- paste("c(", paste(util_backtickQuote(nm), collapse = ", "), ")")
e <- parse(text = t)
got <- eval(e, envir = as.list(setNames(LETTERS, nm = nm)))
expect_equivalent(got, LETTERS)
})
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.