# \donttest{
master <- data.frame("id" = c(1,2,3,4,5),
"canonical" = c("Hypochlorosis ancharia",
"Pseudonotis humboldti",
"Myrina ancharia",
"Hypochlorosis ancharia obiana",
"Hypochlorosis lorquinii"),
"family" = c("Lycaenidae", "Lycaenidae",
"Lycaenidae", "Lycaenidae",
"Lycaenidae"),
"accid" = c(0,1,1,0,0),
"source" = c("itis","wiki","wiki","itis",
"itis"),
stringsAsFactors = FALSE)
checklist <- data.frame("id" = c(1,2,3),
"canonical" = c("Hypochlorosis ancharia",
"Hypochlorosis tenebrosa",
"Hypochlorosis ancharia tenebrosa"),
"family" = c("Lycaenidae", "Lycaenidae", "Lycaenidae"),
"accid" = c(0,1,0),
"source" = c("itis","itis","itis"),
stringsAsFactors = FALSE)
get_synonyms(master,checklist,commasep=FALSE)
get_synonyms(master,checklist,commasep=TRUE)
# }
Run the code above in your browser using DataLab