fix od_cache_summary in case of empty cache

statistikat · Apr 5, 2024 · 7f872eb · 7f872eb
1 parent 5ba414f
commit 7f872eb
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/od_cache.R b/R/od_cache.R
@@ -34,6 +34,8 @@
 od_cache_summary <- function(server = "ext") {
   cache_dir <- od_cache_path(server)
   files <- dir(cache_dir, pattern = ".csv")
+  if(length(files)==0)
+    return(NULL)
   pos_underscore <- as.integer(gregexpr("_C-", files))
   is_field <- pos_underscore != -1
   field <- substr(files[is_field], 1 + pos_underscore[is_field], nchar(files[is_field]) - 4)