Benjamin Chan benjamin-chan

Medicaid enrollment for Oregon congressional districts

Sys.getenv("CENSUS_API_KEY")  # load pre-installed Census API key

library(magrittr)

library(magrittr)
library(tidyverse)

	# [Website](https://hudgis-hud.opendata.arcgis.com/datasets/zip-code-population-weighted-centroids-1/about)
	# [API](https://hudgis-hud.opendata.arcgis.com/datasets/zip-code-population-weighted-centroids-1/api)

	library(magrittr)
	library(dplyr)
	library(jsonlite)
	# All zip codes, all columns
	url <- "https://services.arcgis.com/VTyQ9soqVukalItT/arcgis/rest/services/ZIP_Code_Population_Weighted_Centroids/FeatureServer/0/query?where=1%3D1&outFields=*&outSR=4326&f=json"
	centroids <- fromJSON(url)$features
	# Oregon zip codes, essential columns only

	getCMS <- function(datasetID = NULL,
	columns = "*",
	where = NULL,
	limit = 0,
	root = "https://data.cms.gov/provider-data/api/1/datastore/sql")
	{
	require(magrittr)
	require(httr)
	require(jsonlite)
	if (is.null(datasetID)) {

	pal <- c("#174375", # OHA Blue
	"#ec5a24", # OHA Orange
	"#00817f", # Sea Glass
	"#752e71", # Beauty Berry
	"#d5dae8", # Blue BG
	"#fff2dd", # Orange BG
	"#dceae8", # Sea Glass BG
	"#ebdee8", # Beauty Berry BG
	"#F2F2F2", # Light gray; requires the use of a border
	"#949494", # Medium gray (updated)

	# US Census ACS 5-year API documentation: https://www.census.gov/data/developers/data-sets/acs-5year.html
	# tidycensus documentation: https://walker-data.com/tidycensus/

	Sys.getenv("CENSUS_API_KEY") # load pre-installed Census API key

	getACSbyZCTA <- function(lookup, table = NULL, variables = NULL, dataset = "acs5/profile", year = 2023) {
	require(magrittr)
	require(dplyr)
	require(tidyr)
	require(tidycensus)

	search <- function(file, str) {
	text <- readLines(file.path(path, file), warn = FALSE)
	df <- data.frame(file = file,
	line = 1:length(text),
	regex = str,
	result = grepl(str, text),
	text)
	df[df$result == TRUE, ]
	}

	# Reference: https://www.bls.gov/developers/api_r.htm
	library(magrittr)
	library(dplyr)
	library(devtools)
	install_github("mikeasilva/blsAPI") # https://github.com/mikeasilva/blsAPI
	library(rjson)
	library(blsAPI)

	payload <- list("seriesid" = c("CUUR0000SA0L1E"),
	"startyear" = 2016,