benjaminrobinson

library(dplyr)
library(rvest)
library(stringr)
library(purrr)
library(tidyr)
library(janitor)
library(RecordLinkage)
library(ggplot2)
library(scales)
library(ggthemes)

benjaminrobinson

library(dplyr)
library(rvest)
library(stringr)
library(purrr)
library(tidyr)
library(janitor)
library(RecordLinkage)
library(ggplot2)
library(scales)
library(ggthemes)

benjaminrobinson

library(tidyverse)
library(rvest)
getAgentList <- function(x) {
  message(paste("Scraping Page", x))
  paste0('https://nflpa.com/search/agents?page=', x) %>%
    read_html -> web
  
  if (web %>%
      html_table %>%
      bind_rows %>%

benjaminrobinson

library(tidyverse)
library(gghighlight)
library(ggthemes)

read_csv("https://github.com/leesharpe/nfldata/raw/master/data/games.csv") %>%
  select(season,
         game_type,
         game_id,
         home_score,
         away_score,

benjaminrobinson

library(dplyr)
library(tidyr)
library(purrr)
library(stringr)
library(rvest)
library(tictoc)

getJew <- function(x) {
    paste0('http://www.jewornotjew.com/profile.jsp?ID=', x) %>%
        read_html %>%

benjaminrobinson

,,Mock,Mock,Mock,Mock,Mock,Mock,Analyst,Analyst,Analyst,Analyst,Analyst,Model,Model,Model,Model,Model,Model,Model
name,url,@chadfordinsider,@draftnet,@espn,@johnhollinger,@ringer,@tankathon,@chadfordinsider,@deanondraft,@draftexpress,@johnhollinger,@ringer,@ESPNStatsInfo,@evidenceforz,@JacobEGoldstein,@jessefischer33,@kpelton,@Model284,@thebigwafe
LaMelo Ball,/player/LaMelo-Ball/Summary/103892,1,4,3,1,4,1,1,2,1,1,3,2,,1,28,1,1,1
Anthony Edwards,/player/Anthony-Edwards/Summary/117444,3,1,1,3,1,3,3,1,2,2,2,1,12,4,22,3,3,9
James Wiseman,/player/James-Wiseman/Summary/107990,2,2,2,2,2,2,2,3,3,8,6,3,,12,2,16,7,
Tyrese Haliburton,/player/Tyrese-Haliburton/Summary/132168,4,8,8,4,8,6,4,4,8,6,10,7,2,2,18,2,2,3
Onyeka Okongwu,/player/Onyeka-Okongwu/Summary/103946,9,3,6,9,3,9,6,13,5,4,5,5,1,3,7,7,6,5
Killian Hayes,/player/Killian-Hayes/Summary/108654,9,11,12,10,7,10,5,11,10,3,1,8,,6,1,9,8,2
Deni Avdija,/player/Deni-Avdija/Summary/116938,5,9,4,6,5,4,10,10,4,16,4,4,,8,19,6,4,13
Isaac Okoro,/player/Isaac-Okoro/Summary/11742

benjaminrobinson

library(tidyverse)
library(rvest)
# library(hrbrthemes)
# library(ggimage)
# library(ggrepel)
# library(ggthemes)
library(shiny)
library(plotly)

'https://www.thomasmore.edu/covid-19/healthy-at-thomas-more-plan/covid-19-dashboard/' %>%

benjaminrobinson

library(tidyverse)

getWikiNFLDraft <- function(x, method = 'df') {
  if (method == 'copy') {
    paste0('https://en.wikipedia.org/wiki/', x, '_NFL_Draft') %>%
      read_html %>%
      html_table(fill = TRUE) %>%
      .[[5]] %>%
      select(-1, -Notes, -Conf.) %>%
      setNames(c('round', 'pick', 'team', 'name', 'position', 'school')) %>%

benjaminrobinson

library(tidyverse)
library(rvest)

'https://overthecap.com/draft-trade-value-chart/' %>%
    read_html %>%
    html_table(header = FALSE) %>%
    bind_rows %>%
    select(-seq(3, 23, 3)) %>%
    slice(-1) %>%
    setNames(1:ncol(.)) %>%

benjaminrobinson