# NOT RUN {
library(taxlist)
data(Easplist)
## Display of slot 'taxonNames'
Euclea <- subset(Easplist, charmatch("Euclea", TaxonName), slot="names",
keep_children=TRUE)
summary(Euclea)
taxon_names(Euclea)
## Insert a synonym to Diospyros scabra
summary(Easplist, "Diospyros scabra")
Easplist <- add_synonym(Easplist, 51793, TaxonName="Maba scabra",
AuthorName="Chiov.")
summary(Easplist, "Diospyros scabra")
## Delete a synonym of Launaea cornuta
summary(Easplist, "Launaea cornuta")
Easplist <- delete_name(Easplist, 53821)
summary(Easplist, "Launaea cornuta")
# }
Run the code above in your browser using DataLab