# the beginnings of me doing a webscraping tutorial
# https://rpubs.com/Radcliffe/superbowl
library(rvest)
library(stringr)
library(tidyr)
url <- 'http://espn.go.com/nfl/superbowl/history/winners'
webpage <- read_html(url)
sb_table <- html_nodes(webpage, 'table')
sb <- html_table(sb_table)[[1]]
head(sb)