The package now automatically deletes cached data from previous data…

… releases that might exist from previous versions of the package
ipeaGIT · Sep 10, 2023 · a7f726e · a7f726e
1 parent 8f648cf
commit a7f726e
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 4 deletions.
diff --git a/R/censobr_cache.R b/R/censobr_cache.R
@@ -57,7 +57,7 @@ censobr_cache <- function(list_files = TRUE,
       ## also delete any files from old data releases
         # determine old cache
         dir_above <- dirname(censobr_env$cache_dir)
-        all_cache <- list.files(dir_above, pattern = 'v',full.names = TRUE)
+        all_cache <- list.files(dir_above, pattern = 'data_release',full.names = TRUE)
         old_cache <- all_cache[!grepl(censobr_env$data_release, all_cache)]
         # delete
         unlink(old_cache, recursive = TRUE)

diff --git a/R/onLoad.R b/R/onLoad.R
@@ -7,10 +7,14 @@ censobr_env <- new.env(parent = emptyenv()) # nocov start
   censobr_env$data_release <- 'v0.1.0'
 
   # local cache dir
-  censobr_env$cache_dir <- tools::R_user_dir('censobr', which = 'cache')
-  censobr_env$cache_dir <- paste0(censobr_env$cache_dir,'/',censobr_env$data_release)
+  cache_d <- paste0('censobr/data_release_',censobr_env$data_release)
+  censobr_env$cache_dir <- tools::R_user_dir(cache_d, which = 'cache')
   # gsub("\\\\", "/", censobr_env$cache_dir)
 
-
+  ## delete any files from old data releases
+  dir_above <- dirname(censobr_env$cache_dir)
+  all_cache <- list.files(dir_above, pattern = 'data_release',full.names = TRUE)
+  old_cache <- all_cache[!grepl(censobr_env$data_release, all_cache)]
+  unlink(old_cache, recursive = TRUE)
 
 } # nocov end