labelled + parameters leads to NA variable labels

DESCRIPTION

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

R/format_parameters.R

@@ -446,8 +446,15 @@ format_parameters.parameters_model <- function(model, ...) {
         for (i in names(interactions)) {
           # extract single coefficient names from interaction term
           out <- unlist(strsplit(i, ":", fixed = TRUE))
+          # for on-the-fly conversion of factors, the names of the factors can
+          # can also contain "factor()" or "as.factor()" - we need to remove these
+          if (any(grepl("(as\\.factor|factor|as\\.character)", out))) {
+            out_clean <- gsub("(as\\.factor|factor|as\\.character)\\((.*)\\)(.*)", "\\2", out)
+          } else {
+            out_clean <- out
+          }
           # combine labels
-          labs <- c(labs, paste(sapply(out, function(l) pretty_labels[l]), collapse = " * "))
+          labs <- c(labs, paste(sapply(out_clean, function(l) pretty_labels[l]), collapse = " * "))
         }
         # add interaction terms to labels string
         names(labs) <- names(interactions)

R/utils_model_parameters.R

@@ -4,7 +4,7 @@
 #'
 #' @keywords internal
 #' @noRd
 .add_model_parameters_attributes <- function(params,
                                              model,
                                              ci,
                                              exponentiate = FALSE,
@@ -215,7 +215,11 @@
   }
 
   # add parameters with value and variable
-  attr(params, "pretty_labels") <- .format_value_labels(params, model)
+  if (isFALSE(dot.arguments$pretty_names)) {
+    attr(params, "pretty_labels") <- params$Parameter
+  } else if (is.null(attr(params, "pretty_labels", exact = TRUE))) {
+    attr(params, "pretty_labels") <- .format_value_labels(params, model)
+  }
 
   row.names(params) <- NULL
   params
@@ -254,7 +258,7 @@
 #'
 #' @keywords internal
 #' @noRd
 .find_coefficient_type <- function(info, exponentiate, model = NULL) {
   # column name for coefficients
   coef_col <- "Coefficient"
   if (!is.null(model) && inherits(model, "emmGrid")) {