# NOT RUN {
library(XML)
taxon_names <- XML::htmlTreeParse("http://www.theplantlist.org/1.1/browse/B/") %>%
xmlRoot() %>%
getNodeSet("//ul[@id='nametree']/li/a/i") %>%
sapply(xmlValue)
bryophytes_ex_data <- extract_taxonomy(taxon_names, key = "name", database = "itis")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab