data-raw/info_about_shapefiles.R

In martinjhnhadley/statesRcontiguous: Shapefiles for the Contiguous United States of America

library("sf")
library("tidyverse")

get_year <- function(path, ...){
  read_csv(path) %>%
    select(year) %>%
    .[[1]]
}

get_url <- function(path, ...){
  read_csv(path) %>%
    select(url) %>%
    .[[1]]
}


statesrcontiguous_shapefile_details <- tribble(
  ~path, ~subdivision, ~type,
  "data-raw/current_states_shapefile_url.csv", "States", "Shapefile",
  "data-raw/current_states_info_url.csv", "States", "Info",
  "data-raw/current_congressional_districts_shapefile_url.csv", "Congressional Districts", "Shapefile",
  "data-raw/current_congressional_districts_info_url.csv", "Congressional Districts", "Info",
  "data-raw/current_counties_shapefile_url.csv", "Counties", "Shapefile",
  "data-raw/current_counties_info_url.csv", "Counties", "Info"
) %>%
  mutate(year = pmap_int(., get_year),
         source = pmap_chr(., get_url))
save(statesrcontiguous_shapefile_details, file = "data/statesrcontiguous_shapefile_details.rdata")

# ===== Deprecated shapefile details object ====

detailed_congressional_districts_url <- read_csv("data-raw/current_congressional_districts_info_url.csv") %>%
  mutate(description = "Details about congressional districts")
detailed_counties_url <- read_csv("data-raw/current_counties_info_url.csv") %>%
  mutate(description = "Details about counties")
detailed_states_url <- read_csv("data-raw/current_states_info_url.csv") %>%
  mutate(description = "Details about states")

shapefiles_congressional_districts_url <- read_csv("data-raw/current_congressional_districts_shapefile_url.csv") %>%
  mutate(description = "Shapefile for congressional districts")
shapefiles_counties_url <- read_csv("data-raw/current_counties_shapefile_url.csv") %>%
  mutate(description = "Shapefile for counties")
shapefiles_states_url <- read_csv("data-raw/current_states_shapefile_url.csv") %>%
  mutate(description = "Shapefile for states")


shapefile_details <- detailed_congressional_districts_url %>%
  bind_rows(detailed_counties_url) %>%
  bind_rows(detailed_states_url) %>%
  bind_rows(shapefiles_congressional_districts_url) %>%
  bind_rows(shapefiles_counties_url) %>%
  bind_rows(shapefiles_states_url) %>%
  select(description, year, url)

save(shapefile_details, file = "data/shapefile_details.rdata")