## 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")
# ## End(Not run)
Run the code above in your browser using DataLab