Enhance examples.

R/delete_mirror.R

@@ -8,8 +8,10 @@
 #'
 #' @examplesIf curl::has_internet() & RCurl::url.exists("https://zenodo.org/records/10959197", timeout.ms = 5000)
 #' # https://zenodo.org/records/10959197
-#' zen_file(10959197, "iris.rds")
+#' file_path <- zen_file(10959197, "iris.rds")
+#' print(file_path)
 #' delete_mirror(10959197)
+#' file.exists(file_path)
 #'
 #' @export
 delete_mirror <- function(deposit_id){
@@ -30,8 +32,10 @@ delete_mirror <- function(deposit_id){
 #'
 #' @examplesIf curl::has_internet() & RCurl::url.exists("https://zenodo.org/records/10959197", timeout.ms = 5000)
 #' # https://zenodo.org/records/10959197
-#' zen_file(10959197, "iris.rds")
-#' delete_all_mirrors()
+#' file_path <- zen_file(10959197, "iris.rds")
+#' print(file_path)
+#' delete_all_mirrors(10959197)
+#' file.exists(file_path)
 #'
 #' @export
 delete_all_mirrors <- function(){

R/download_deposit.R

@@ -11,6 +11,8 @@
 #' res <- list_deposit(deposit_id = 10959197)
 #' temp_dir <- tempdir()
 #' download_deposit(list_deposit = res, dest = temp_dir, quiet = FALSE)
+#' file.exists(file.path(temp_dir, "iris.rds"))
+#' file.exists(file.path(temp_dir, "mtcars.rds"))
 #'
 #' @export
 download_deposit <- function(list_deposit, file_name = NULL, dest, quiet = FALSE){

R/mirror_deposit.R

@@ -12,6 +12,8 @@
 #' @examplesIf curl::has_internet() & RCurl::url.exists("https://zenodo.org/records/10959197", timeout.ms = 5000)
 #' # https://zenodo.org/records/10959197
 #' mirror_deposit(deposit_id = 10959197)
+#' file.exists(file.path(temp_dir, "iris.rds"))
+#' file.exists(file.path(temp_dir, "mtcars.rds"))
 #'
 #' @export
 #'

R/zen_file.R

@@ -12,6 +12,7 @@
 #' @examplesIf curl::has_internet() & RCurl::url.exists("https://zenodo.org/records/10959197", timeout.ms = 5000)
 #' # https://zenodo.org/records/10959197
 #' zen_file(10959197, "iris.rds")
+#' file.exists(file.path(temp_dir, "iris.rds"))
 #'
 #' @export
 zen_file <- function(deposit_id, file_name, clear_cache = FALSE, quiet = FALSE){