# \donttest{
master <- 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)
checklist <- 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)
merged_all <- merge_lists(master,checklist,output="all")
new_taxa <- merge_lists(master,checklist,output="new")
merged_with_new <- merge_lists(master,checklist,output="merged")
merged_add <- merge_lists(master,checklist,output="add")
multi_linked <- merge_lists(master,checklist,output="multi")
# }
Run the code above in your browser using DataLab