From e1b06446852da116b60ef3a4883aa94d19c1dc52 Mon Sep 17 00:00:00 2001
From: Indrajeet Patil <patilindrajeet.science@gmail.com>
Date: Mon, 18 Sep 2023 13:05:42 +0200
Subject: [PATCH] dontrun -> donttest

cf. https://github.com/easystats/easystats/issues/380
---
 R/estimate_contrasts.R                         | 2 +-
 R/visualisation_recipe.estimate_slopes.R       | 2 +-
 man/estimate_contrasts.Rd                      | 2 +-
 man/visualisation_recipe.estimate_predicted.Rd | 2 +-
 4 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/R/estimate_contrasts.R b/R/estimate_contrasts.R
index f5aed15b..6832cb28 100644
--- a/R/estimate_contrasts.R
+++ b/R/estimate_contrasts.R
@@ -58,7 +58,7 @@
 #' data <- mtcars
 #' data$cyl <- as.factor(data$cyl)
 #' data$am <- as.factor(data$am)
-#' \dontrun{
+#' \donttest{
 #' model <- stan_glm(mpg ~ cyl * am, data = data, refresh = 0)
 #' estimate_contrasts(model)
 #' estimate_contrasts(model, fixed = "am")
diff --git a/R/visualisation_recipe.estimate_slopes.R b/R/visualisation_recipe.estimate_slopes.R
index 8c327244..028e981b 100644
--- a/R/visualisation_recipe.estimate_slopes.R
+++ b/R/visualisation_recipe.estimate_slopes.R
@@ -20,7 +20,7 @@
 #'   x <- estimate_slopes(model, at = c("Sepal.Width", "Species"))
 #'   plot(visualisation_recipe(x))
 #' }
-#' \dontrun{
+#' \donttest{
 #' # TODO: fails with latest emmeans (1.8.0)
 #' if (require("mgcv")) {
 #'   data <- iris
diff --git a/man/estimate_contrasts.Rd b/man/estimate_contrasts.Rd
index 250bf016..4a3ea4b2 100644
--- a/man/estimate_contrasts.Rd
+++ b/man/estimate_contrasts.Rd
@@ -164,7 +164,7 @@ library(rstanarm)
 data <- mtcars
 data$cyl <- as.factor(data$cyl)
 data$am <- as.factor(data$am)
-\dontrun{
+\donttest{
 model <- stan_glm(mpg ~ cyl * am, data = data, refresh = 0)
 estimate_contrasts(model)
 estimate_contrasts(model, fixed = "am")
diff --git a/man/visualisation_recipe.estimate_predicted.Rd b/man/visualisation_recipe.estimate_predicted.Rd
index 67082639..ed31185f 100644
--- a/man/visualisation_recipe.estimate_predicted.Rd
+++ b/man/visualisation_recipe.estimate_predicted.Rd
@@ -271,7 +271,7 @@ if (require("ggplot2")) {
   x <- estimate_slopes(model, at = c("Sepal.Width", "Species"))
   plot(visualisation_recipe(x))
 }
-\dontrun{
+\donttest{
 # TODO: fails with latest emmeans (1.8.0)
 if (require("mgcv")) {
   data <- iris