add state population dataset #24

USEPA · Oct 18, 2024 · 0d83203 · 0d83203
1 parent e226010
commit 0d83203
Show file tree

Hide file tree

Showing 2 changed files with 464 additions and 0 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -34,3 +34,16 @@ download_model_RDS <- function(modelname) {
   }
   return(file_path)
 }
+
+#' Load state population table.
+load_state_population <- function(path=NULL) {
+  if (is.null(path)) {
+    path <- file.path("../data/state_population.csv")
+  } else {
+    path <- file.path(path, "state_population.csv")
+  }
+  pop <- read.csv(path, header=TRUE)
+  pop <- pop[,c("FlowAmount","Abbreviation","Year")]
+  colnames(pop) <- c("Population","State","Year")
+  return(pop)
+}