gistfile1.txt

library(rvest)
library(tidyverse)
# html scraper is a function of the url and the element of the list
html_scraper <- function(url, elem){
  read_html(url) %>% html_nodes("table") %>% . [[elem]] %>% html_table -> out
  return(out)
}

# usage
# html_scraper( 'http://pokemondb.net/pokedex/all' , 1 )