From 7f416e490f21fc56d62f44f44d40cbe4abf254b4 Mon Sep 17 00:00:00 2001 From: Teun van den Brand Date: Thu, 29 May 2025 13:26:35 +0200 Subject: [PATCH] do not preserve orderedness --- R/reshape-add-margins.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/reshape-add-margins.R b/R/reshape-add-margins.R index 4603268214..589ccf91db 100644 --- a/R/reshape-add-margins.R +++ b/R/reshape-add-margins.R @@ -8,7 +8,7 @@ reshape_add_margins <- function(df, vars, margins = TRUE) { # Prepare data frame for addition of margins addAll <- function(x) { x <- addNA(x, TRUE) - factor(x, levels = c(levels(x), "(all)"), exclude = NULL) + factor(x, levels = c(levels(x), "(all)"), exclude = NULL, ordered = FALSE) } vars <- unique0(unlist(margin_vars)) df[vars] <- lapply(df[vars], addAll)