Reorder checks

r-multiverse · Mar 2, 2024 · 898657d · 898657d
1 parent f335bb8
commit 898657d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/assert_package.R b/R/assert_package.R
@@ -47,7 +47,6 @@ assert_package <- function(name, url) {
   if (identical(owner, "cran")) {
     return(paste("URL", shQuote(url), "appears to use a CRAN mirror."))
   }
-  assert_cran_url(name = name, url = url)
   status <- nanonext::ncurl(url)[["status"]]
   if (status != 200L) {
     return(
@@ -59,6 +58,7 @@ assert_package <- function(name, url) {
       )
     )
   }
+  assert_cran_url(name = name, url = url)
 }
 
 assert_package_lite <- function(name, url) {