Adjustments for #153, #151

ChangeLog

@@ -19,4 +19,5 @@ Date        Version  Comment
 2024-02-15  3.0.0    Adding back age and sex functionality. Other improvements.
 2024-02-27  3.0.1    Github has changed their policy on binary formats in releases, need to refer to older version
 2024-04-02  3.0.2    Fixes a bug that led to overestimation of black and hispanic populations (see issue #145)
-2024-05-24  3.0.3    Fixes a bug that pushed NaN into small population tracts (see issue #151)
+2024-05-24  3.0.3    Fixes a bug that pushed NaN into small population tracts (see issue #151)
+2024-06-07  3.0.4    Fixes a bug related to a list of variables not being unnested properly (issue #151, #153)

DESCRIPTION

@@ -1,8 +1,8 @@
 Package: wru
 Title: Who are You? Bayesian Prediction of Racial Category Using Surname,
     First Name, Middle Name, and Geolocation
-Version: 3.0.3
-Date: 2024-05-24
+Version: 3.0.4
+Date: 2024-06-07
 Authors@R: c(
     person("Kabir", "Khanna", , "[email protected]", role = "aut"),
     person("Brandon", "Bertelsen", , "[email protected]", role = c("aut", "cre")),

R/census_helper_v2.R

@@ -182,7 +182,7 @@ census_helper_new <- function(
     }
     drop <- match(c("state", unlist(vars_)), names(census))
 
-    geoPopulations <- rowSums(census[,names(census) %in% vars_])
+    geoPopulations <- rowSums(census[,names(census) %in% unlist(vars_)])
 
     census$r_whi <- rowSums(census[, vars_[["r_whi"]], drop = FALSE]) / (geoPopulations) #Pr(White | Geo)
     census$r_bla <- rowSums(census[, vars_[["r_bla"]], drop = FALSE]) / (geoPopulations) #Pr(Black | Geo)