Nothing
test_that("replacementPatterns.csv has valid format", {
lines <- readLines(system.file("csv", "replacementPatterns.csv", package = "SqlRender"))
for (line in lines) {
lineTrim <- gsub('"[^"]*"', "", gsub('\\\\"', "", line))
comma_cnt <- nchar(lineTrim) - nchar(gsub(",", "", lineTrim))
expect_equal(comma_cnt, 2, label = paste0("comma counts in string: ", line))
}
})
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.