storage_driver <- function(name, create, packages = NULL) {
if (!is.null(packages)) {
assert_character(packages)
}
assert_function(create)
ret <- list(name = name,
create = create,
packages = packages)
class(ret) <- "context_storage_driver"
ret
}
storage_driver_rds <- function() {
storage_driver("rds", function(path, id, args) {
storr::storr_rds(path_db(path),
compress = args$compress %||% FALSE,
mangle_key = args$mangle_key %||% TRUE,
mangle_key_pad = args$mangle_key_pad %||% TRUE)
})
}
storage_driver_environment <- function() {
storage_driver("environment", function(path, id, args) {
if (file.exists(path_config(path))) {
stop("Cannot reconnect to environment storage")
}
storr::storr_environment()
})
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.