more stable

easystats · Oct 8, 2023 · c02219b · c02219b
1 parent 3c43fd1
commit c02219b
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/R/print.equivalence_test.R b/R/print.equivalence_test.R
@@ -12,10 +12,13 @@ print.equivalence_test <- function(x, digits = 2, ...) {
       cp <- cp[startsWith(cp$Group, "SD/Cor"), ]
       matches <- match(cp$Parameter, x$Parameter)
       if (length(matches)) {
-        x$Parameter[matches] <- paste0(
+        new_pattern <- paste0(
           "SD/Cor: ",
           cp$Cleaned_Parameter[unique(stats::na.omit(match(x$Parameter, cp$Parameter)))]
         )
+        if (length(new_pattern) == length(matches)) {
+          x$Parameter[matches] <- new_pattern
+        }
       }
     }
   }