lintr, avoid warnings

easystats · Sep 29, 2023 · 76108bd · 76108bd
1 parent 4618ab7
commit 76108bd
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/random_parameters.R b/R/random_parameters.R
@@ -68,7 +68,7 @@ random_parameters <- function(model, component = "conditional") {
 .n_randomeffects <- function(model) {
   vapply(
     insight::get_data(model, verbose = FALSE)[insight::find_random(model, split_nested = TRUE, flatten = TRUE)],
-    function(i) insight::n_unique(i),
+    insight::n_unique,
     numeric(1)
   )
 }

diff --git a/R/utils_format.R b/R/utils_format.R
@@ -336,7 +336,7 @@
   }
 
   # check if we have model data, else return parameter table
-  model_data <- insight::get_data(model)
+  model_data <- insight::get_data(model, verbose = FALSE)
   if (is.null(model_data)) {
     params
   }