Delete orphaned packages

Closes r-universe-org/help#435
r-universe-org · Jul 1, 2024 · 6525459 · 6525459
1 parent 093790b
commit 6525459
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/R/setup.R b/R/setup.R
@@ -61,6 +61,15 @@ setup_universes <- function(){
       lapply(deleted, delete_universe_repo, only_if_empty = FALSE)
     }
   }
+
+  # Remove packages that do not belong to an existing universe
+  orphans <- setdiff(stats$universe, universes)
+  if(length(orphans) > 10){
+    stop("More than 10 orphan universes found:", paste(orphans, collapse = ', '))
+  }
+  lapply(orphans, function(x){
+    try(delete_universe_repo(x))
+  })
 }
 
 #' @export