From 36c831f5556a4134087c6a7ba675ef35a8d5cece Mon Sep 17 00:00:00 2001
From: Daniel <mail@danielluedecke.de>
Date: Wed, 17 Jul 2024 10:35:47 +0200
Subject: [PATCH] Make sure performance works with datawizard 0.10.0

---
 DESCRIPTION                                    | 2 +-
 R/check_heterogeneity_bias.R                   | 5 ++++-
 man/check_heterogeneity_bias.Rd                | 2 ++
 tests/testthat/test-check_heterogeneity_bias.R | 1 +
 4 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 839392906..870f7354e 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,7 +1,7 @@
 Type: Package
 Package: performance
 Title: Assessment of Regression Models Performance
-Version: 0.12.1
+Version: 0.12.1.1
 Authors@R:
     c(person(given = "Daniel",
              family = "Lüdecke",
diff --git a/R/check_heterogeneity_bias.R b/R/check_heterogeneity_bias.R
index 7b7b22fcf..424bf8b5b 100644
--- a/R/check_heterogeneity_bias.R
+++ b/R/check_heterogeneity_bias.R
@@ -23,17 +23,20 @@
 #'   Modeling of Time-Series Cross-Sectional and Panel Data. Political Science
 #'   Research and Methods, 3(1), 133–153.
 #'
-#' @examples
+#' @examplesIf insight::check_if_installed("datawizard", minimum_version = "0.12.0", quietly = TRUE)
 #' data(iris)
 #' iris$ID <- sample(1:4, nrow(iris), replace = TRUE) # fake-ID
 #' check_heterogeneity_bias(iris, select = c("Sepal.Length", "Petal.Length"), by = "ID")
 #' @export
 check_heterogeneity_bias <- function(x, select = NULL, by = NULL, group = NULL) {
+  insight::check_if_installed("datawizard", minimum_version = "0.12.0")
+
   ## TODO: deprecate later
   if (!is.null(group)) {
     insight::format_warning("Argument `group` is deprecated and will be removed in a future release. Please use `by` instead.") # nolint
     by <- group
   }
+
   if (insight::is_model(x)) {
     by <- insight::find_random(x, split_nested = TRUE, flatten = TRUE)
     if (is.null(by)) {
diff --git a/man/check_heterogeneity_bias.Rd b/man/check_heterogeneity_bias.Rd
index 21534540e..46f9f70a5 100644
--- a/man/check_heterogeneity_bias.Rd
+++ b/man/check_heterogeneity_bias.Rd
@@ -25,9 +25,11 @@ cause a heterogeneity bias, i.e. if variables have a within- and/or
 between-effect (\emph{Bell and Jones, 2015}).
 }
 \examples{
+\dontshow{if (insight::check_if_installed("datawizard", minimum_version = "0.12.0", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf}
 data(iris)
 iris$ID <- sample(1:4, nrow(iris), replace = TRUE) # fake-ID
 check_heterogeneity_bias(iris, select = c("Sepal.Length", "Petal.Length"), by = "ID")
+\dontshow{\}) # examplesIf}
 }
 \references{
 \itemize{
diff --git a/tests/testthat/test-check_heterogeneity_bias.R b/tests/testthat/test-check_heterogeneity_bias.R
index 7042f3064..429dcfc0c 100644
--- a/tests/testthat/test-check_heterogeneity_bias.R
+++ b/tests/testthat/test-check_heterogeneity_bias.R
@@ -1,4 +1,5 @@
 test_that("check_heterogeneity_bias", {
+  skip_if_not_installed("datawizard", minimum_version = "0.12.0")
   data(iris)
   set.seed(123)
   iris$ID <- sample.int(4, nrow(iris), replace = TRUE) # fake-ID