I hereby claim:
- I am ehbick01 on github.
- I am robotirl (https://keybase.io/robotirl) on keybase.
- I have a public key ASAAPdgc1SVxxC0Lfkykpv8BF9ARtA1ZsNZyitYu7s0rkQo
To claim this, I am signing this object:
# ----------------------------------- | |
# Pulling Historical Buoy Information | |
# October 2016 | |
# ----------------------------------- | |
## Load Packages | |
library(tidyverse) | |
library(xml2) | |
library(rvest) | |
library(RCurl) |
I hereby claim:
To claim this, I am signing this object:
## Load Packages | |
library(tidycensus) | |
library(purrr) | |
## Grab Data | |
# Set API key | |
census_api_key("your_api_key_here") | |
# Identify state FIPS codes | |
us <- unique(fips_codes$state)[1:51] |
## Load Packages | |
library(tidyverse) | |
## Set Theme | |
theme_set( | |
theme_bw(base_family = 'Segoe UI', base_size = 12) + | |
theme( | |
plot.title = element_text(face = 'bold', hjust = 0), | |
text = element_text(colour = '#445359'), | |
panel.background = element_rect('#ffffff'), |
## Load Packages & Define Theme | |
library(tidyverse) | |
library(doParallel) | |
library(parallel) | |
library(doSNOW) | |
library(foreach) | |
library(lubridate) | |
# Make function | |
getEm <- function(x) { |