missed two checking spots

traitecoevo · Jul 31, 2024 · 281fbe5 · 281fbe5
1 parent adfee1c
commit 281fbe5
Show file tree

Hide file tree

Showing 3 changed files with 12 additions and 0 deletions.
diff --git a/R/create_species_state_origin_matrix.R b/R/create_species_state_origin_matrix.R
@@ -27,6 +27,7 @@
 #'
 #'
 create_species_state_origin_matrix <- function(resources = load_taxonomic_resources()) {
+
   if(is.null(resources)){
     message("Not finding taxonomic resources; check internet connection?")
     return(NULL)

diff --git a/R/state_diversity_counts.R b/R/state_diversity_counts.R
@@ -28,6 +28,12 @@
 #'  \donttest{state_diversity_counts(state = "NSW")}
 state_diversity_counts <- function(state,
                                    resources = load_taxonomic_resources()) {
+
+  if(is.null(resources)){
+    message("Not finding taxonomic resources; check internet connection?")
+    return(NULL)
+  }
+
   valid_inputs <- c(
     "NSW",
     "NT",

diff --git a/R/update_taxonomy.R b/R/update_taxonomy.R
@@ -117,6 +117,11 @@ update_taxonomy <- function(aligned_data,
                             output = NULL,
                             resources = load_taxonomic_resources()) {
 
+  if(is.null(resources)){
+    message("Not finding taxonomic resources; check internet connection?")
+    return(NULL)
+  }
+
   aligned_data <- 
     aligned_data %>%
     dplyr::select(original_name, aligned_name, taxon_rank, taxonomic_dataset, aligned_reason) %>%