fix typo

ncss-tech · Jan 22, 2025 · 0704b9d · 0704b9d
1 parent 895f43c
commit 0704b9d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/utils.R b/R/utils.R
@@ -74,7 +74,7 @@ prettySummary <- function(x, p = c(0, 0.25, 0.5, 0.75, 1), n = TRUE, signif = TR
   if (grepl("^region[0-9]+.*$", x)) {
     lut <- c(region2 = "southwest",
              region11 = "northcentral")
-    old <- gsub("^(region[0-9])+.*$", "\\1", x)
+    old <- gsub("^(region[0-9]+).*$", "\\1", x)
     new <- gsub(paste0("^", old), lut[old], x)
     message("Replacing ", x, " with ", new)
     x <- new