# NOT RUN {
library(taxlist)
data(Easplist)
## Direct manipulation of slot taxonRelations generates an invalid object
Easplist@taxonRelations <- Easplist@taxonRelations[1:5,]
summary(Easplist)
## Now apply cleaning
Easplist <- clean(Easplist)
summary(Easplist)
# }
Run the code above in your browser using DataCamp Workspace