From 724b6c97884e37a16c0043934e48bb4e83aa9366 Mon Sep 17 00:00:00 2001
From: Will Cornwell <w.cornwell@unsw.edu.au>
Date: Wed, 31 Jul 2024 17:11:04 +1000
Subject: [PATCH] another edge case

---
 R/align_taxa.R | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/R/align_taxa.R b/R/align_taxa.R
index cd648bdf..037bec58 100644
--- 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),