Nothing
context("jprint")
missing_cols <- c("WT", "HT", "OCC")
test_that("expectation warns user if named replacement not found in original list", {
expect_message(jprint("missing columns: ", missing_cols), "missing columns: WT, HT, OCC")
expect_message(jprint("missing columns: ", missing_cols, sep_vector=";"), "missing columns: WT;HT;OCC")
expect_message(jprint("missing cols", missing_cols, sep_atomic=":"), "missing cols:WT, HT, OCC")
})
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.