labelled + parameters leads to NA variable labels

DESCRIPTION

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

R/format_parameters.R

@@ -400,7 +400,7 @@
       } else {
         out <- attr(vec, "label", exact = TRUE)
       }
       if (is.null(out)) {
         i
       } else {
         out
@@ -446,8 +446,15 @@
         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)