allow reference category included

R/compare_parameters.R

@@ -83,6 +83,7 @@ compare_parameters <- function(...,
                                coefficient_names = NULL,
                                keep = NULL,
                                drop = NULL,
+                               include_reference = FALSE,
                                verbose = TRUE) {
   models <- list(...)
 
@@ -186,6 +187,7 @@ compare_parameters <- function(...,
         keep = keep,
         drop = drop,
         wb_component = FALSE,
+        include_reference = include_reference,
         verbose = verbose
       )
     }

R/utils_format.R

@@ -53,7 +53,9 @@
     # here we either have "<br>" or " " as line breaks, followed by empty "()"
     i <- gsub("<br>()", "", i, fixed = TRUE)
     i <- gsub(" ()", "", i, fixed = TRUE)
+    i <- gsub(" (, )", "", i, fixed = TRUE)
     i[i == "()"] <- ""
+    i[i == "(, )"] <- ""
     # remove other non-matched patterns
     i <- gsub("{stars}", "", i, fixed = TRUE)
     i <- gsub("{rhat}", "", i, fixed = TRUE)

tests/testthat/_snaps/compare_parameters.md

@@ -104,3 +104,36 @@
       | SD (Residual)           | 31.13 (27.89, 34.75)  |        | 31.30 (28.02, 34.96) |        |
       +-------------------------+-----------------------+--------+----------------------+--------+ 
 
+---
+
+    Code
+      print(out)
+    Output
+      +----------------+-----------------------+----------------------+
+      |                | lm1                   | lm2                  |
+      +----------------+-----------------------+----------------------+
+      | Parameter      | lm1                   | lm2                  |
+      +================+=======================+======================+
+      | *Groups*                                                      |
+      +----------------+-----------------------+----------------------+
+      | grp (1)        | 0.00                  | 0.00                 |
+      +----------------+-----------------------+----------------------+
+      | grp (2)        | -4.31 (-15.95, 7.32)  | 0.32 (-22.56, 23.20) |
+      +----------------+-----------------------+----------------------+
+      | grp (3)        | -1.31 (-13.47, 10.84) | 3.77 (-19.72, 27.26) |
+      +----------------+-----------------------+----------------------+
+      | *Interactions*                                                |
+      +----------------+-----------------------+----------------------+
+      | Days * grp (2) |                       | -1.01 (-5.35, 3.32)  |
+      +----------------+-----------------------+----------------------+
+      | Days * grp (3) |                       | -1.11 (-5.53, 3.31)  |
+      +----------------+-----------------------+----------------------+
+      | *Controls*                                                    |
+      +----------------+-----------------------+----------------------+
+      | Days           | 10.44 (8.84, 12.03)   | 11.23 (7.87, 14.60)  |
+      +----------------+-----------------------+----------------------+
+      |                |                       |                      |
+      +----------------+-----------------------+----------------------+
+      | Observations   | 180                   | 180                  |
+      +----------------+-----------------------+----------------------+ 
+

tests/testthat/test-compare_parameters.R

@@ -149,6 +149,15 @@ withr::with_options(
         regex = "Cannot combine"
       )
 
+      # with reference level
+      cp <- compare_parameters(lm1, lm2, drop = "^\\(Intercept", include_reference = TRUE)
+      out <- print_md(cp, groups = list(
+        Groups = 2:4,
+        Interactions = 5:6,
+        Controls = 1
+      ))
+      expect_snapshot(print(out))
+
       # error
       cp <- compare_parameters(lm1, lm2, select = "{estimate} ({ci})|{p}", drop = "^\\(Intercept")
       expect_error(