10/30/2024 fixing error in getStateLocalGovExpenditure()

USEPA · Oct 30, 2024 · 7531653 · 7531653
1 parent f22e8fd
commit 7531653
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/data-raw/CensusData.R b/data-raw/CensusData.R
@@ -265,7 +265,7 @@ getStateLocalGovExpenditure <- function(year) {
         # Keep Expenditures only
         df<- df[which(df$Description == "Expenditure1"):nrow(df), ]
         if (year > 2011) {
-          Line <- as.integer(df_i[complete.cases(df), 1])
+          Line <- as.integer(df[complete.cases(df), 1])
         }
         df <- df[, colnames(df) %in% c("Description", "United States Total",
                                              state.name, "District of Columbia")]