Update format.R

easystats · Jan 25, 2025 · 6777f42 · 6777f42
1 parent 7026cc2
commit 6777f42
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/format.R b/R/format.R
@@ -376,9 +376,9 @@ format.marginaleffects_contrasts <- function(x, model = NULL, p_adjust = NULL, c
         x[[i]] <- factor(x[[i]], levels = unique(x[[i]]))
       }
       # make sure filtering terms in `by` are factors, for data_arrange later
-      if (!is.null(by)) {
+      if (!is.null(by) && length(by)) {
         for (i in by) {
-          if (i %in% colnames(dgrid) && i %in% colnames(x) && is.factor(dgrid[[i]])) {
+          if (i %in% colnames(dgrid) && i %in% colnames(x) && is.factor(dgrid[[i]]) && !is.factor(x[[i]])) { # nolint
             x[[i]] <- factor(x[[i]], levels = unique(x[[i]]))
           }
         }