Nothing
test_that("recursive file list works right", {
skip_on_cran()
if(!sb_ping()) skip("sciencebase unavailable, tests won't work")
sb_id <- "59cadcffe4b017cf314095a7"
item <- item_get(sb_id)
files <- item_list_files(item, recursive = TRUE)
expect_true(nrow(files) > 100)
})
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.