# \donttest{
mylist <- data.frame("id" = c(11,12,13,14,15,16,17,18,19),
"genus" = c("Hypochlorosis","Hypochlorosis","Hypochlorosis",
"Myrina","Hypochlorosis","Hypochlorosis",
"Hypochlorosis","Seuku","Sithon"),
"subgenus" = c("","","","","","","(Pseudonotis)","",""),
"species" = c("ancharia","ancharia","ancharia",
"lorquinii","ancharia","ancharia",
"metilia","emlongi","lorquinii"),
"subspecies" = c("","ancharia","humboldti",
"","tenebrosa"," tenebrosa",
"","",""),
"author" = c("(Hewitson, 1869)","(Hewitson, 1869)","Druce, 1894",
"C. & R. Felder, 1865","Rothschild, 1915",
"Rothschild, 1915","Fruhstorfer, 1908",
"(Domning et al., 1986)",""),
stringsAsFactors = FALSE)
cast_scientificname(mylist,genus = "genus", subgenus = "subgenus",
species = "species", subspecies = "subspecies",
author = "author")
# }
Run the code above in your browser using DataLab