naeb

require(rvest)
output_file_name<-'output.txt'
for(i in 6174:45000){  #or 1, or whatever
  url <- paste0("http://naeb.brit.org/uses/",i) #
  message("Scraping ", url)
  use_page_i <- read_html(paste0("http://naeb.brit.org/uses/",i))
  links_i <- use_page_i %>% html_elements("a")
  species_i <- links_i[8] %>% html_text2()
  write(species_i,file=output_file_name,append=TRUE)
}