R/create_data.R

In rushkin/bitsandends: Various convenience functions

# #The data stored in this package was created here
#
# library(tidyverse)
# library(sf)
# library(geojsonio)
# library(maps)
#
# load('./data/us_state_codes.RData')
#
# us_counties_sf=geojson_sf('https://raw.githubusercontent.com/plotly/datasets/master/geojson-counties-fips.json')
# us_counties_sf$name=paste0(us_counties_sf$NAME, ', ', us_state_codes$code[match(us_counties_sf$STATE, us_state_codes$fips)])
# us_counties_sf$state_code=us_state_codes$code[match(us_counties_sf$STATE, us_state_codes$fips)]
# us_counties_sf$state_name=us_state_codes$name[match(us_counties_sf$STATE, us_state_codes$fips)]
# us_counties_sf$name=paste0(us_counties_sf$NAME, ', ', us_counties_sf$state_code)
# us_states_sf=geojson_sf('https://raw.githubusercontent.com/PublicaMundi/MappingAPI/master/data/geojson/us-states.json')
# countries_sf=geojson_sf('https://raw.githubusercontent.com/PublicaMundi/MappingAPI/master/data/geojson/countries.geojson')

# us_counties_sp=sf::as(us_counties_sf,'Spatial')
# us_states_sp=sf::as(us_states_sf,'Spatial')
# countries_sp=sf::as(countries_sf,'Spatial')
# save(us_counties_sp, file='./data/us_counties_sp.RData')
# save(us_states_sp, file='./data/us_states_sp.RData')
# save(countries_sp, file='./data/countries_sp.RData')