Nothing
context('I/O Utility Functions')
test_that('abbr_to_colClass works', {
expect_equal(
abbr_to_colClass('bcflinDtds', '1234567891'),
rep(
c("blank", "character", "factor", "logical", "integer", "numeric", "Date", "text", "date", "skip"),
c(1:9, 1)
)
)
})
test_that('sanitize2 works', {
expect_equal(
sanitize2('$\\\\text[lw=.5]{hey}|u| % 4 & _#^~$'),
"\\$$\\backslash$text\\lbracklw=.5\\rbrack\\{hey\\}$|$u$|$ \\% 4 \\& \\_\\#\\verb|^|\\~{}\\$"
)
})
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.