closes #2102

ddsjoberg · Dec 17, 2024 · 1bb7647 · 1bb7647
1 parent 2f29b79
commit 1bb7647
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/vignettes/articles/gallery.Rmd b/vignettes/articles/gallery.Rmd
@@ -401,8 +401,11 @@ my_tidy <- function(x, exponentiate = FALSE, conf.level = 0.95, ...) {
   dplyr::bind_cols(
     broom::tidy(x, exponentiate = exponentiate, conf.int = FALSE),
     # calculate the confidence intervals, and save them in a tibble
-    confint.default(x) |> 
-      dplyr::as_tibble() |> 
+    dplyr::case_when(
+      exponentiate ~ exp(confint.default(x)),
+      .default = confint.default(x)
+    ) |> 
+      dplyr::as_tibble(.name_repair = "minimal") |> 
       rlang::set_names(c("conf.low", "conf.high"))
   )
 }