Nothing
test_that("clearing cache works", {
op <- options()
expect_null(finbif_clear_cache())
cache <- tempfile()
dir.create(cache)
options(finbif_cache_path = cache)
expect_null(finbif_clear_cache())
if (
requireNamespace("DBI", quietly = TRUE) &&
requireNamespace("RSQLite", quietly = TRUE)
) {
db <- DBI::dbConnect(RSQLite::SQLite(), ":memory:")
DBI::dbCreateTable(db, "finbif_cache", c(hash = "TEXT"))
options(finbif_cache_path = db)
expect_null(finbif_clear_cache())
options(finbif_cache_path = NULL)
DBI::dbDisconnect(db)
}
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.