2nd fix #23

CoryMcCartan · CoryMcCartan · commit ae465b9841eb · 2025-09-02T16:39:20.000-04:00
diff --git a/R/bisg.R b/R/bisg.R
@@ -268,7 +268,7 @@ make_name_tbl_vec <- function(vars, p_r, p_rs, for_me=FALSE) {
             cli_abort("{.arg p_rs} contains missing, negative,
                       or otherwise invalid values.", call=parent.frame())
         }
-        if (!identical(p_r, "estimate") && length(p_r) != ncol(p_rs) - 1) {
+        if (!identical(p_r, "estimate") && length(p_r) != ncol(p_rs)) {
             cli_abort("Number of racial categories in {.arg p_rs}
                       and {.arg p_r} must match.", call=parent.frame())
         }

Original file line number	Diff line number	Diff line change
`@@ -268,7 +268,7 @@ make_name_tbl_vec <- function(vars, p_r, p_rs, for_me=FALSE) {`
`268`	`268`	`cli_abort("{.arg p_rs} contains missing, negative,`
`269`	`269`	`or otherwise invalid values.", call=parent.frame())`
`270`	`270`	`}`
`271`		`- if (!identical(p_r, "estimate") && length(p_r) != ncol(p_rs) - 1) {`
	`271`	`+ if (!identical(p_r, "estimate") && length(p_r) != ncol(p_rs)) {`
`272`	`272`	`cli_abort("Number of racial categories in {.arg p_rs}`
`273`	`273`	`and {.arg p_r} must match.", call=parent.frame())`
`274`	`274`	`}`