update contrasts check

MangiolaLaboratory · Dec 14, 2023 · f2026be · f2026be
1 parent 7fe748b
commit f2026be
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/utilities.R b/R/utilities.R
@@ -2109,9 +2109,9 @@ mutate_from_expr_list = function(x, formula_expr, ignore_errors = TRUE){
   require_back_quotes = contrasts_elements |>  str_remove_all("`") |> contains_only_valid_chars_for_column() 
   has_left_back_quotes = contrasts_elements |>  str_detect("^`") 
   has_right_back_quotes = contrasts_elements |>  str_detect("`$") 
-  if_false_not_good = require_back_quotes | (has_left_back_quotes & has_right_back_quotes)
+  if_true_not_good = require_back_quotes & !(has_left_back_quotes & has_right_back_quotes)
 
-  if(!all(if_false_not_good))
+  if(any(if_true_not_good))
     warning(sprintf("sccomp says: for columns which have special characters e.g. %s, you need to use surrounding backquotes ``.", paste(contrasts_elements[!if_false_not_good], sep=", ")))
 
   # Check if columns exist