Nothing
test_that("the correct filenames are retrieved", {
# Without using `here::here()`.
dont_use_here(silent = TRUE)
filenames1 <- stash_filename("josh")
expect_equal(
filenames1,
list(
data_name = file.path(".mustashe/josh.qs"),
hash_name = file.path(".mustashe/josh.hash")
)
)
# With using `here::here()`.
use_here(silent = TRUE)
filenames2 <- stash_filename("josh")
expect_false(filenames1$data_name == filenames2$data_name)
expect_false(filenames1$hash_name == filenames2$hash_name)
expect_true(basename(filenames1$data_name) == basename(filenames2$data_name))
expect_true(basename(filenames1$hash_name) == basename(filenames2$hash_name))
expect_true(grep(filenames1$data_name, filenames2$data_name) == 1)
expect_true(grep(filenames1$hash_name, filenames2$hash_name) == 1)
})
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.