From 14252108c1b95b2aa37d9d378dae8f3bce1f6726 Mon Sep 17 00:00:00 2001 From: Sarah Zeller <49416474+sarahzeller@users.noreply.github.com> Date: Mon, 18 Mar 2024 11:53:38 +0100 Subject: [PATCH] =?UTF-8?q?=E2=9C=8F=EF=B8=8F=20refer=20to=20district=20le?= =?UTF-8?q?vel=20data?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- R/xwalk_ags.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/xwalk_ags.R b/R/xwalk_ags.R index 92dfb72..696e6e6 100644 --- 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) {