fix issue in printing

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