if (FALSE) {
# Basic usage
species_list <- c("Cattleya maxima", "Polylepis incana")
results <- matching_threatenedperu(species_list, source = "original")
# With duplicates
species_dup <- c("Cattleya maxima", "Polylepis incana", "Cattleya maxima")
results_dup <- matching_threatenedperu(species_dup)
nrow(results_dup) == 3 # TRUE - preserves duplicates
# Access metadata
attr(results, "match_rate")
# Check for ambiguous matches
get_ambiguous_matches(results, type = "infraspecies")
}
Run the code above in your browser using DataLab