handle dpars

Author: strengejacke

DESCRIPTION

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

R/utils_format.R

@@ -592,6 +592,13 @@
       # if model has any distributional parameters, check if it's fixed or random
       # and create component header
       if (!is.null(dpars)) {
+        # add aliases
+        if ("zoi" %in% dpars) {
+          dpars <- c(dpars, "zero_one_inflated")
+        }
+        if ("coi" %in% dpars) {
+          dpars <- c(dpars, "conditional_one_inflated")
+        }
         type_parts <- unlist(strsplit(type, ".", fixed = TRUE))
         if (type_parts[1] %in% dpars) {
           if (identical(type_parts[2], "fixed")) {
@@ -688,6 +695,10 @@
     component_name <- paste0("Random Effects: ", gsub("^random\\.", "", component_name))
   }
 
+  # clean some special parameter names
+  component_name <- gsub("zero_one_inflated", "Zero-One-Inflated", component_name)
+  component_name <- gsub("conditional_one_inflated", "Conditional-One-Inflated", component_name)
+
   # if we show ZI component only, make sure this appears in header
   if (!grepl("(Zero-Inflation Component)", component_name, fixed = TRUE) &&
     !is.null(formatted_table$Component) &&