Nothing
context("Filename tagging")
test_that("Tagging yields a character vector", {
expect_true(is.character(tag("data.csv", "qc")));
expect_true(is.character(tag(filename("data", ext="tsv"))));
});
test_that("Tagging a character vector or a filename gives same results", {
x <- "data.txt";
expect_that(tag(x, "qc"), equals(tag(as.filename(x), "qc")));
});
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.