Expand match_taxa branch coverage and fix aff. fuzzy reason text

NEWS.md

@@ -1,5 +1,6 @@
 # APCalign 2.0.0
 
+- Fix malformed `aligned_reason` text for fuzzy genus-level `aff.`/`affinis` matches (`match_06b`/`06c`/`06d`), which previously appended the date without a separating ` (`.
 - New function `synonyms_for_accepted_names()` to list synonyms for currently accepted taxon names.
 - `load_taxonomic_resources()` now caches results in memory for the duration of the R session, so repeated calls with the same version return immediately without re-downloading or re-processing data.
 - New function `clear_cached_resources()` to remove the session cache and force a reload.

R/match_taxa.R

@@ -963,7 +963,7 @@ match_taxa <- function(
                             paste0(aligned_name_tmp, identifier_string2, "]")
       ),
       aligned_reason = paste0(
-        "Fuzzy match to APC-accepted genus. Taxon name includes 'affinis' or 'aff' indicating an unknown taxon that bears an affinity to a different taxon in the same genus and taxon can only be aligned to genus-rank",
+        "Fuzzy match to APC-accepted genus. Taxon name includes 'affinis' or 'aff' indicating an unknown taxon that bears an affinity to a different taxon in the same genus and taxon can only be aligned to genus-rank (",
         Sys.Date(),
         ")"
       ),
@@ -999,7 +999,7 @@ match_taxa <- function(
                             paste0(aligned_name_tmp, identifier_string2, "]")
       ),
       aligned_reason = paste0(
-        "Fuzzy match to APC-known genus. Taxon name includes 'affinis' or 'aff' indicating an unknown taxon that bears an affinity to a different taxon in the same genus and taxon can only be aligned to genus-rank",
+        "Fuzzy match to APC-known genus. Taxon name includes 'affinis' or 'aff' indicating an unknown taxon that bears an affinity to a different taxon in the same genus and taxon can only be aligned to genus-rank (",
         Sys.Date(),
         ")"
       ),
@@ -1036,7 +1036,7 @@ match_taxa <- function(
                               paste0(aligned_name_tmp, identifier_string2, "]")
         ),
         aligned_reason = paste0(
-          "Fuzzy match to APNI-listed genus. Taxon name includes 'affinis' or 'aff' indicating an unknown taxon that bears an affinity to a different taxon in the same genus and taxon can only be aligned to genus-rank",
+          "Fuzzy match to APNI-listed genus. Taxon name includes 'affinis' or 'aff' indicating an unknown taxon that bears an affinity to a different taxon in the same genus and taxon can only be aligned to genus-rank (",
           Sys.Date(),
           ")"
         ),