#' @export
store_set_timestamp_trust.default <- function(store) {
store$file$trust_timestamps <- FALSE
}
# Semi-automated tests of Amazon S3 integration live in tests/aws/. # nolint
# Same for other potential cloud storage functionality.
# These tests should not be fully automated because they
# incur monetary costs for storage and API calls.
# nocov start
#' @export
store_tar_path.tar_cloud <- function(store, target, path_store) {
store$file$stage
}
#' @export
store_produce_stage.tar_cloud <- function(store, name, object, path_store) {
path_scratch_temp_network(pattern = name)
}
#' @export
store_write_object.tar_cloud <- function(store, object) {
stage <- store$file$stage
dir_create(dirname(stage))
store_write_path(store, store_convert_object(store, object), stage)
}
#' @export
store_cache_path.tar_cloud <- function(store, path) {
}
#' @export
store_hash_late.tar_cloud <- function(store) {
tar_assert_path(store$file$stage)
file <- file_init(path = store$file$stage)
file_update_info(file)
store$file$bytes <- file$bytes
store$file$time <- file$time
}
#' @export
store_ensure_correct_hash.tar_cloud <- function(store, storage, deployment) {
}
#' @export
store_sync_file_meta.tar_cloud <- function(store, target, meta) {
}
# nocov end
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.