Remove importing of dplyr, stringr, remove tibble

- add explcit namespace to calls of relevant functions

DESCRIPTION

@@ -19,7 +19,6 @@ Imports:
     readr,
     purrr,
     forcats,
-    tibble,
     dplyr,
     stringr,
     stringi,

NAMESPACE

@@ -12,5 +12,3 @@ export(state_diversity_counts)
 export(strip_names)
 export(strip_names_extra)
 export(update_taxonomy)
-import(dplyr)
-import(stringr)

R/align_taxa.R

@@ -107,7 +107,7 @@ align_taxa <- function(original_name,
   }
   else {
     taxa_raw <-
-      tibble::tibble(
+      dplyr::tibble(
         original_name = character(0L),
         cleaned_name = character(0L),
         aligned_name = character(0L),
@@ -124,7 +124,7 @@ align_taxa <- function(original_name,
   taxa[["tocheck"]] <-
     dplyr::bind_rows(
       taxa_raw,
-      tibble::tibble(
+      dplyr::tibble(
         original_name = 
           # only include new names
           subset(original_name, 
@@ -198,8 +198,8 @@ align_taxa <- function(original_name,
   if (!all(taxa$tocheck$checked)) {
 
   perfect_matches <- taxa$tocheck %>%
-    filter(original_name %in% resources$`APC list (accepted)`$canonical_name) %>%
-    distinct(original_name) %>%
+    dplyr::filter(original_name %in% resources$`APC list (accepted)`$canonical_name) %>%
+    dplyr::distinct(original_name) %>%
     nrow()
 
   if(!quiet)

R/load_taxonomic_resources.R

@@ -17,8 +17,6 @@
 #' @examples
 #' \donttest{load_taxonomic_resources(stable_or_current_data="stable",version="0.0.2.9000")}
 #'
-#' @import dplyr
-#' 
 
 load_taxonomic_resources <-
   function(stable_or_current_data = "stable",
@@ -53,7 +51,7 @@ load_taxonomic_resources <-
     zzz <- "zzzz zzzz"
 
     taxonomic_resources$APC <- taxonomic_resources$APC %>%
-      rename(
+      dplyr::rename(
         taxon_ID = .data$taxonID,
         taxon_rank = .data$taxonRank,
         name_type = .data$nameType,
@@ -72,13 +70,13 @@ load_taxonomic_resources <-
         nomenclatural_code = .data$nomenclaturalCode,
         dataset_name = .data$datasetName
       ) %>%
-      mutate(
+      dplyr::mutate(
         genus = extract_genus(canonical_name),
         taxon_rank = standardise_taxon_rank(taxon_rank)
       )
 
     taxonomic_resources$APNI <- taxonomic_resources$APNI %>%
-      rename(
+      dplyr::rename(
         name_type = .data$nameType,
         taxonomic_status = .data$taxonomicStatus,
         taxon_rank = .data$taxonRank,
@@ -91,7 +89,7 @@ load_taxonomic_resources <-
         dataset_name = .data$datasetName,
         name_element = .data$nameElement
       )  %>%
-      mutate(
+      dplyr::mutate(
         genus = extract_genus(canonical_name),
         taxon_rank = standardise_taxon_rank(taxon_rank)
       )