Merge pull request #2 from sarahzeller/sarahzeller-correctly-specify-…

…data-reference ✏️ refer to district level data
sumtxt · Apr 8, 2024 · 74d7bc7 · 74d7bc7
2 parents 2c80799 + 1425210
commit 74d7bc7
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/xwalk_ags.R b/R/xwalk_ags.R
@@ -122,8 +122,8 @@ xwalk_ags <- function(data,
     if (length(lev) > 1) {
         stop("All values in ", ags, " need to be of equal length.")
     } else {
-        if (grepl("xc", xwalk) & lev != 5) {
-            stop("If district crosswalk is request, the values
+        if (grepl("xd", xwalk) & lev != 5) {
+            stop("If district crosswalk is requested, the values
                 in ags need to be of length 5.")
         }
         if (grepl("xm", xwalk) & lev != 8) {