Nothing
#' @export
store_class_format.auto <- function(format) {
c("tar_auto", "tar_store")
}
#' @export
store_assert_format_setting.auto <- function(format) {
}
#' @export
store_get_packages.tar_auto <- function(store) {
"qs"
}
store_reformat_auto <- function(target) {
if (!identical(target$settings$format, "auto")) {
return()
}
object <- target$value$object
format <- if_any(
is.character(object) && all(file.exists(object)),
"file",
"qs"
)
target_reformat(target, format)
}
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.