# NOT RUN {
library(taxlist)
data(Easplist)
## Set a different accepted name for Cyclosorus interruptus
summary(Easplist, "Cyclosorus interruptus")
accepted_name(Easplist, 50074) <- 53097
summary(Easplist, 50074)
## Inserting a new name first
summary(Easplist, "Basella alba")
Easplist <- add_synonym(Easplist, 68, TaxonName="Basella cordifolia",
AuthorName="Lam.")
summary(Easplist, 68)
accepted_name(Easplist, 68) <- 56139
summary(Easplist, 68)
# }
# NOT RUN {
## attempt to use a name from another concept
accepted_name(Easplist, 50074) <- 51129
# }
Run the code above in your browser using DataLab