data-raw/us-national-population.R

In ropensci/historydata: Datasets for Historians

library(dplyr)
us_state_populations <- read.csv("data-raw/nhgis0011_ts_state.csv",
                                 stringsAsFactors = FALSE)
us_national_population <- us_state_populations %>%
  select(year = YEAR,
         state = STATE,
         state_population = A00AA) %>%
  tbl_df() %>%
  group_by(year) %>%
  summarize(population = sum(state_population, na.rm = TRUE))
devtools::use_data(us_national_population, overwrite = TRUE)