Enable force delete

r-universe-org · Feb 7, 2024 · 6e51af3 · 6e51af3
1 parent 1c2de8d
commit 6e51af3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/setup.R b/R/setup.R
@@ -25,7 +25,7 @@ setup_universes <- function(){
   oldies <- subset(installs, days > 10)
   empties <- setdiff(oldies$name, c(skiplist, stats$universe))
   cat("Found empty universes: ", paste(empties, collapse = ", "), "\n")
-  if(length(empties) > 10){
+  if(length(empties) > 10 && Sys.getenv('FORCE_DELETE') == ""){
     stop("Found more than 10 empty installations. Maybe this is not right.")
   }
   for(username in empties){