library(dplyr)
library(devtools)
library(stringi)
# Read in and clean up `county_centers`
county_centers <- read.csv(paste0("http://www2.census.gov/geo/docs/reference/",
"cenpop2010/county/CenPop2010_Mean_CO.txt"),
as.is = TRUE) %>%
mutate(fips = paste0(sprintf("%02d", STATEFP),
sprintf("%03d", COUNTYFP)),
COUNAME = stri_trans_general(COUNAME, "latin-ascii")) %>%
select(fips, COUNAME, STNAME, POPULATION, LATITUDE, LONGITUDE) %>%
rename(county_name = COUNAME,
state_name = STNAME,
population = POPULATION,
latitude = LATITUDE, longitude = LONGITUDE)
usethis::use_data(county_centers, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.