Nothing
test_that("fetching collections works", {
skip_on_cran()
op <- options()
cache <- tempfile()
dir.create(cache)
options(finbif_cache_path = cache, finbif_rate_limit = Inf)
if (requireNamespace("vcr", quietly = TRUE)) {
vcr::use_cassette("finbif_collections", {
collections <- finbif_collections(
has_children, NA, subcollections = FALSE, supercollections = TRUE
)
collections_error <- try(finbif_collections(1), silent = TRUE)
})
expect_snapshot(collections)
expect_equal(
collections_error[[1L]],
paste(
"Error in finbif_collections(1) :",
"\n Collections filter must be a logical vector\n"
)
)
}
options(finbif_cache_path = NULL)
options(op)
})
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.