cha_url <- "chicagohealthatlas.org" cha_subcategory_key <- "education" subcategories_header <- c("subcategory_name", "subcategory_key", "category_name") topic_header <- c("topic_name", "topic_key", "topic_description", "topic_units", subcategories_header) coverage_header <- c("topic_key", "population_key", "population_name", "population_grouping", "period_key", "layer_key", "layer_name") coverage_header_keys_only <- c("topic_key", "population_key", "period_key", "layer_key") data_header_long <- c("geoid", "topic_key", "population_key", "period_key", "layer_key", "value", "standardError") layers_header <- c("layer_name", "layer_key", "layer_description", "layer_url") layer_header <- c("layer_key", "geoid", "name", "population", "state","notes", "geometry") point_layers_header <- c("point_layer_name", "point_layer_uuid", "point_layer_description")