model_paramaters with exponentiate = TRUE not working with bootstrapp…

…ed object from bootstrap_model

Fixes #1004

R/methods_base.R

@@ -1,9 +1,13 @@
 #' @rdname model_parameters.stanreg
 #' @export
-model_parameters.data.frame <- function(model, as_draws = FALSE, verbose = TRUE, ...) {
+model_parameters.data.frame <- function(model,
+                                        as_draws = FALSE,
+                                        exponentiate = FALSE,
+                                        verbose = TRUE,
+                                        ...) {
   # treat data frame as bootstraps/posteriors?
   if (isTRUE(as_draws)) {
-    return(model_parameters.draws(model, verbose = verbose, ...))
+    return(model_parameters.draws(model, exponentiate = exponentiate, verbose = verbose, ...))
   }
   if (isTRUE(verbose)) {
     insight::format_warning(

R/methods_posterior.R

@@ -8,6 +8,7 @@ model_parameters.draws <- function(model,
                                    test = "pd",
                                    rope_range = "default",
                                    rope_ci = 0.95,
+                                   exponentiate = FALSE,
                                    keep = NULL,
                                    drop = NULL,
                                    verbose = TRUE,
@@ -33,6 +34,9 @@ model_parameters.draws <- function(model,
     ...
   )
 
+  # exponentiate coefficients and SE/CI, if requested
+  params <- .exponentiate_parameters(params)
+
   attr(params, "ci") <- ci
   attr(params, "object_name") <- insight::safe_deparse_symbol(substitute(model))
   class(params) <- c("parameters_model", "see_parameters_model", class(params))