Update R/helpers_regression.R

smasongarrison · web-flow · commit d6ee0ad75373 · 2026-02-20T21:09:50.000-05:00
Signed-off-by: Mason Garrison &lt;garrissm@wfu.edu&gt;
diff --git a/R/helpers_regression.R b/R/helpers_regression.R
@@ -402,7 +402,7 @@ check_discord_errors <- function(data, id, sex, race, pair_identifiers) {
     ))
   }
   if (base::sum(base::grepl(pair_identifiers[1], base::names(data))) == 0 ||
-    base::sum(base::grepl(pair_identifiers[2], base::names(data))) == 0) {
+        base::sum(base::grepl(pair_identifiers[2], base::names(data))) == 0) {
     stop(paste0(
       "Please check that the kinship pair identifiers \"", pair_identifiers[1],
       "\" and \"", pair_identifiers[2],

Original file line number	Diff line number	Diff line change
`@@ -402,7 +402,7 @@ check_discord_errors <- function(data, id, sex, race, pair_identifiers) {`
`402`	`402`	`))`
`403`	`403`	`}`
`404`	`404`	`if (base::sum(base::grepl(pair_identifiers[1], base::names(data))) == 0 \|\|`
`405`		`- base::sum(base::grepl(pair_identifiers[2], base::names(data))) == 0) {`
	`405`	`+ base::sum(base::grepl(pair_identifiers[2], base::names(data))) == 0) {`
`406`	`406`	`stop(paste0(`
`407`	`407`	`"Please check that the kinship pair identifiers \"", pair_identifiers[1],`
`408`	`408`	`"\" and \"", pair_identifiers[2],`