Skip to content

Instantly share code, notes, and snippets.

View benjaminrobinson's full-sized avatar

Ben Robinson benjaminrobinson

24 followers · 28 following
  • Washington, DC Area
View GitHub Profile
@benjaminrobinson
benjaminrobinson / cincycodeenforcement.R
Last active August 10, 2016 03:07
options(stringsAsFactors=FALSE)
options(scipen=20)
options(digits=15)
pkg_test <- function(x){
if(x %in% rownames(installed.packages())){
suppressWarnings(library(x,character.only=TRUE))
return(paste0("Loaded the ",x," Package"))
} else {
install.packages(x)
suppressWarnings(library(x,character.only=TRUE))
@benjaminrobinson
benjaminrobinson / nfl_college_scrape.R
Last active August 4, 2017 14:32
library(rvest)
library(dplyr)
library(tidyr)
nfl <- data.frame()
for(a in letters[!(letters %in% c('q','x','z'))]){
tmp <- read_html(
paste0("http://www.espn.com/nfl/college/_/letter/",a)
) %>%
html_node("table") %>%
@benjaminrobinson
benjaminrobinson / coach_salaries.R
Last active December 9, 2016 07:57
begin <- Sys.time()
library(jsonlite)
library(dplyr)
options(stringsAsFactors = FALSE)
coach <- data.frame()
for(a in 1:2989){
tmp <- jsonlite::fromJSON(paste0("https://sports.usatoday.com/ajaxservice/ncaa/salaries__coach__",a))
if(is.null(nrow(tmp$rows))){
@benjaminrobinson
benjaminrobinson / dchr_salary.R
Last active December 19, 2016 08:03
#LINK TO DATA SHEETS HERE: http://dchr.dc.gov/public-employee-salary-information
#USE TABULIZER
options(stringsAsFactors = FALSE)
options(scipen = 10)
library(devtools)
install_github("ropenscilabs/tabulizerjars")
install_github("ropenscilabs/tabulizer")
library(tabulizer)
library(rvest)
library(dplyr)
@benjaminrobinson
benjaminrobinson / iframe_auto_forwarding.rmd
Last active November 22, 2017 19:17
Link Auto-forwarding Example
---
title: ""
output:
flexdashboard::flex_dashboard:
orientation: rows
runtime: shiny
---
Open Data Platform
=======================================================================
@benjaminrobinson
benjaminrobinson / dc_school_report_cards.R
Last active December 6, 2019 04:14
## LOAD LIBRARIES
library(dplyr)
library(tidyr)
library(httr)
library(readxl)
## CUSTOM FUNCTION TO READ ALL SHEETS OF AN EXCEL FILE INTO A LIST OF DATA FRAMES OR TIBBLES THANKS STACK OVERFLOW!!
## https://stackoverflow.com/questions/12945687/read-all-worksheets-in-an-excel-workbook-into-an-r-list-with-data-frames
read_excel_allsheets <- function(filename, tibble = FALSE) {
sheets <- excel_sheets(filename)
@benjaminrobinson
benjaminrobinson / dc_state_street_intersections.R
Created January 15, 2020 04:17
DC State Streets that also intersect in the real world
options(stringsAsFactors = FALSE)
library(tidyverse)
library(sf)
library(rvest)
'https://thefactfile.org/u-s-states-and-their-border-states/' %>%
read_html %>%
html_table %>%
.[[1]] %>%
setNames(c("state_number", "REGISTEREDNAME", "state_border", "num_border")) %>%
@benjaminrobinson
benjaminrobinson / ras.csv
Last active March 31, 2020 08:17
player_id player_name draft_year position all_time_ras ras
1466 Gardner Minshew 2019 QB 5.95 5.95
2188 Kyle Shurmur 2019 QB 4.27 4.27
5955 Dwayne Haskins 2019 QB 3.46 3.46
14278 D.K. Metcalf 2019 WR 9.67 9.67
14315 NKeal Harry 2019 WR 8.45 8.45
14334 Kelvin Harmon 2019 WR 4.92 4.92
14377 A.J. Brown 2019 WR 8.6 8.6
14673 Jazz Ferguson 2019 WR 7.33 7.33
14955 Jamal Custis 2019 WR 6.49 6.49
@benjaminrobinson
benjaminrobinson / otc_draft_value_chart.R
Created April 27, 2020 18:11
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
benjaminrobinson / getWikiNFLDraft.R
Created April 28, 2020 21:41
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')) %>%