diff --git a/R/model_compute_terms_contributions.R b/R/model_compute_terms_contributions.R index b9f7cd84..034c2754 100644 --- a/R/model_compute_terms_contributions.R +++ b/R/model_compute_terms_contributions.R @@ -84,8 +84,7 @@ model_compute_terms_contributions.default <- function(model) { } # stop # continuous variables converted to 1 to force positive values - d <- model |> purrr::pluck("data") - if (is.null(d)) d <- model |> model_get_model_frame() + d <- model |> model_get_model_frame() if (is.null(d)) { return(NULL)