From 898657d7c78238132a56efc6069cc54e42c4d0c7 Mon Sep 17 00:00:00 2001
From: wlandau <will.landau.oss@gmail.com>
Date: Sat, 2 Mar 2024 14:01:20 -0500
Subject: [PATCH] Reorder checks

---
 R/assert_package.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/assert_package.R b/R/assert_package.R
index 45f3d94..d8b08c7 100644
--- 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) {