use model frame for computing terms contribution

larmarange · Dec 27, 2024 · 155fff6 · 155fff6
1 parent 12e353f
commit 155fff6
Showing 1 changed file with 1 addition and 2 deletions.
diff --git 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)