problem with APNI "genera" fixed

4 phrase names in APNI where the first word was a "family" and there were mistakenly ending up as genus names when resources loaded; caught by test failure

R/load_taxonomic_resources.R

@@ -229,6 +229,7 @@ load_taxonomic_resources <-
       ) %>%
       dplyr::filter(taxon_rank %in% c("genus")) %>%
       dplyr::filter(!canonical_name %in% taxonomic_resources$APC$canonical_name) %>%
+      dplyr::filter(!stringr::str_detect(stringr::word(genus, 1), "aceae$")) %>%
       dplyr::mutate(taxonomic_dataset = "APNI") %>%
       dplyr::distinct(canonical_name, .keep_all = TRUE)
 

R/match_taxa.R

@@ -304,8 +304,8 @@ match_taxa <- function(
     return(taxa)
 
   # match_02c: Genus-level resolution
-  # Fuzzy matches of APC known genera for names where the final "word" is `sp` or `spp` and 
-  # there isn't an exact match to an APC known genus name.
+  # Fuzzy matches of APC synonymous genera for names where the final "word" is `sp` or `spp` and 
+  # there isn't an exact match to an APC synonymous genus name.
   # Aligned name includes identifier to indicate `genus sp.` refers to a specific species (or infra-specific taxon), associated with a specific dataset/location.
   i <-
     stringr::str_detect(taxa$tocheck$cleaned_name, "[:space:]sp\\.$") &