View gist:6461f41c2ef1ca51e51aba3b377c9a1f
# Activate these packages | |
library(shiny) | |
library(DT) | |
library(shinythemes) | |
library(rvest) | |
library(expss) | |
library(dplyr) | |
library(tidyr) | |
library(stringr) | |
library(sqldf) |
View ne_hs_bball.R
library(dplyr) | |
library(tidyr) | |
library(rvest) | |
library(tabulizer) | |
# Manual Class A names | |
School <- | |
c( | |
'Omaha South', | |
'Omaha Central', |
View gist:b9a8bf21f921b3bd01e306d94beee11b
# SCRAPE STATS | |
library(RCurl) | |
library(XML) | |
# Set URL (make sure to use 'getURL' for https/secure sites) | |
nebrasketball2017_url <- getURL("https://www.sports-reference.com/cbb/schools/nebraska/2018-schedule.html") | |
# Pull data from second table on the page into a data frame for analysis | |
nebrasketball2017 <- readHTMLTable(nebrasketball2017_url, header = T, as.data.frame = T)[[2]] |
View gist:04bc9aa38a1037b93c1ef16982011eec
# Access Twitter API using twitterR | |
# Need to have a Twitter account and can access keys, secrets, tokens by creating an app at apps.twitter.com | |
# Include the single quotes around your access codes | |
tw_consumer_key <- 'your_consumer_key' | |
tw_consumer_secret <- 'your_consumer_secret' | |
tw_access_token <- 'your_access_token' | |
tw_access_secret <- 'your_access_secret' | |
setup_twitter_oauth(tw_consumer_key, tw_consumer_secret, tw_access_token, tw_access_secret) |
View gist:3a1d3f731422d258a9efc1492f5b0578
# Install/Library these functions: | |
library(forecast) | |
library (tidyr) | |
library (dplyr) | |
library (highcharter) | |
# Upload CSV file to R Studio, or other GUI containing only monthly sessions and dates | |
aa_data <- read.csv("~/[name of file].csv", stringsAsFactors = FALSE, header = TRUE, sep = ",") | |
# Check data structure of uploaded data |