modelsummary's coef_rename doens't work with logical variables

Fixes #1239

Author: strengejacke

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: parameters
 Title: Processing of Model Parameters
-Version: 0.29.2
+Version: 0.29.2.1
 Authors@R:
     c(person(given = "Daniel",
              family = "Lüdecke",

R/format_parameters.R

@@ -242,6 +242,11 @@ format_parameters.parameters_model <- function(model, ...) {
     name <- .format_factor(name = name, variable = variable, brackets = brackets)
   }
 
+  # Logical
+  if (type == "logical") {
+    name <- .format_logical(name = name, brackets = brackets)
+  }
+
   # Polynomials
   if (type %in% c("poly", "poly_raw")) {
     name <- .format_poly(
@@ -394,6 +399,12 @@ format_parameters.parameters_model <- function(model, ...) {
 }
 
 
+#' @keywords internal
+.format_logical <- function(name, brackets = c("[", "]")) {
+  paste0(name, " ", brackets[1], "TRUE", brackets[2])
+}
+
+
 #' @keywords internal
 .format_log <- function(name, variable, type, brackets = c("[", "]")) {
   paste0(variable, " ", brackets[1], gsub("(.*)\\((.*)\\)", "\\1", name), brackets[2])
@@ -463,7 +474,7 @@ format_parameters.parameters_model <- function(model, ...) {
             factor_terms
           )
           for (k in seq_along(factor_terms)) {
-            ft <- factor_terms[k]    # e.g. "factor(cyl)"
+            ft <- factor_terms[k] # e.g. "factor(cyl)"
             orig <- cleaned_terms[k] # e.g. "cyl"
             if (orig %in% colnames(mf) && !ft %in% colnames(mf)) {
               orig_label <- attr(mf[[orig]], "label", exact = TRUE)

R/parameters_type.R

@@ -215,6 +215,10 @@ parameters_type <- function(model, ...) {
   } else if (cleaned_name %in% reference$numeric) {
     return(c("numeric", "Association", name, name, NA, NA))
 
+    # Logicals
+  } else if (cleaned_name %in% reference$logical) {
+    return(c("logical", "Difference", name, cleaned_name, "TRUE", NA))
+
     # Ordered factors
   } else if (is.ordered(data[[cleaned_ordered_name]])) {
     fac <- reference$levels_parent[match(cleaned_name, reference$levels)]
@@ -427,5 +431,8 @@ parameters_type <- function(model, ...) {
   out$levels <- out$levels[!is.na(out$levels)]
   out$levels_parent <- out$levels_parent[!is.na(out$levels_parent)]
 
+  # Logical
+  out$logical <- names(data[vapply(data, is.logical, TRUE)])
+
   out
 }

R/utils_cleaners.R

@@ -11,15 +11,19 @@
   # remove them here and clean/prepare them in ".parameters_type_basic()".
   # for formatting / printing, refer to ".format_parameter()".
 
+  # fmt: skip
   pattern <- if (full) {
     c(
-      "as.factor", "as.numeric", "as.ordered", "factor", "ordered", "offset",
-      "lag", "diff", "catg", "matrx", "pol", "strata", "strat", "scale",
+      "as.factor", "as.numeric", "as.ordered", "as.logical", "factor", "ordered",
+      "offset", "lag", "diff", "catg", "matrx", "pol", "strata", "strat", "scale",
       "scored", "interaction", "lsp", "pb", "lo", "t2", "te", "ti", "tt", "mi",
       "mo", "gp"
     )
   } else {
-    c("as.factor", "as.numeric", "as.ordered", "factor", "ordered", "catg", "interaction")
+    c(
+      "as.factor", "as.numeric", "as.ordered", "as.logical", "factor", "ordered",
+      "catg", "interaction"
+    )
   }
 
   for (j in seq_along(pattern)) {
@@ -31,13 +35,21 @@
       x <- insight::trim_ws(sub("offset\\(([^-+ )]*)\\)(.*)", "\\1\\2", x))
       # some exceptions here...
     } else if (full && pattern[j] == "scale" && any(grepl("scale(", x, fixed = TRUE))) {
-      x[grepl("scale(", x, fixed = TRUE)] <- insight::clean_names(grep("scale(", x, fixed = TRUE, value = TRUE))
+      x[grepl("scale(", x, fixed = TRUE)] <- insight::clean_names(grep(
+        "scale(",
+        x,
+        fixed = TRUE,
+        value = TRUE
+      ))
     } else if (any(grepl(pattern[j], x, fixed = TRUE))) {
       p <- paste0(pattern[j], "\\(((\\w|\\.)*)\\)(.*)")
       x <- insight::trim_ws(sub(p, "\\1\\3", x))
     }
   }
 
+  # for logicals
+  x <- gsub("TRUE$", "", x)
+
   gsub("`", "", x, fixed = TRUE)
 }