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