another edge case

traitecoevo · Jul 31, 2024 · 724b6c9 · 724b6c9
1 parent 6e8a768
commit 724b6c9
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/R/align_taxa.R b/R/align_taxa.R
@@ -193,6 +193,11 @@ align_taxa <- function(original_name,
                        APNI_matches = TRUE,
                        identifier = NA_character_) {
 
+  if(is.null(resources)){
+    message("Not finding taxonomic resources; check internet connection?")
+    return(NULL)
+  }
+
   if(!quiet)
     message("Checking alignments of ", 
             dplyr::n_distinct(original_name, na.rm = TRUE),