Merge pull request #182 from USEPA/fixes_sv

Fix issue with weight column in SV
USEPA · Jul 25, 2024 · 018220e · 018220e
2 parents f213779 + 06efb82
commit 018220e
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/FrEDI/R/utils_sv.R b/FrEDI/R/utils_sv.R
@@ -278,7 +278,9 @@ calc_tractImpacts <- function(
   rename0     <- c(weightCol)
   renameTo    <- c("popWeight")
   # x_impacts   <- x_impacts |> mutate(popWeight = x_impacts[[weightsCol]])
-  x_impacts   <- x_impacts |> rename_at(vars(rename0), ~renameTo)
+  # x_impacts |> glimpse()
+  # x_impacts   <- x_impacts |> rename_at(vars(rename0), ~renameTo)
+  x_impacts[["popWeight"]]   <- x_impacts[[weightCol]]
   x_impacts   <- x_impacts |> select(-any_of(drop0))
   rm(drop0, rename0, renameTo)