Skip to content

Instantly share code, notes, and snippets.

@benjaminrobinson
Created April 27, 2020 18:11
Show Gist options
  • Save benjaminrobinson/7d41d4f23c6bf7eeb7f508a7010a02f1 to your computer and use it in GitHub Desktop.
Save benjaminrobinson/7d41d4f23c6bf7eeb7f508a7010a02f1 to your computer and use it in GitHub Desktop.
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(.)) %>%
gather %>%
filter(!(key %in% seq(1, 16, 2))) %>%
mutate(
pick = row_number(),
key = NULL
)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment