Change order (in case delete fails)

r-universe-org · Aug 29, 2023 · 5966df0 · 5966df0
1 parent e71a676
commit 5966df0
Showing 1 changed file with 7 additions and 7 deletions.
diff --git a/R/setup.R b/R/setup.R
@@ -40,6 +40,13 @@ setup_universes <- function(){
   cranrepos <- names(sort(unlist(crantogit), decreasing = TRUE))
   owners <- setdiff(cranrepos, skiplist)
 
+  # Check for new CRAN owners, limit batch add to 20
+  newcran <- setdiff(owners, universes)
+  if(length(newcran)){
+    cat("Found some new CRAN owners:\n", newcran, sep = '\n - ')
+    lapply(utils::head(newcran, 200), create_universe_repo)
+  }
+
   # Check for monorepos that are no longer needed
   deleted <- setdiff(universes, c(installs$name, testusers, owners))
   if(length(deleted)){
@@ -54,13 +61,6 @@ setup_universes <- function(){
       lapply(deleted, delete_universe_repo, only_if_empty = FALSE)
     }
   }
-
-  # Check for new CRAN owners, limit batch add to 20
-  newcran <- setdiff(owners, universes)
-  if(length(newcran)){
-    cat("Found some new CRAN owners:\n", newcran, sep = '\n - ')
-    lapply(utils::head(newcran, 200), create_universe_repo)
-  }
 }
 
 #' @export