From 7531653f6639a470ec02cbdf4e35afe8b79a1ba5 Mon Sep 17 00:00:00 2001 From: Julie Chen Date: Wed, 30 Oct 2024 19:31:40 -0400 Subject: [PATCH] 10/30/2024 fixing error in getStateLocalGovExpenditure() --- data-raw/CensusData.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/data-raw/CensusData.R b/data-raw/CensusData.R index 3f418c8..a6144c6 100644 --- 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")]