Easplist <- subset(x = Easplist, subset = Level == "variety", slot = "relations")
Easplist <- accepted_name(Easplist)[c(1:10), "TaxonName"]
# split name
dissect_name(Easplist)
# re-paste the two first words
dissect_name(Easplist, repaste = c(1:2))
Run the code above in your browser using DataLab