tun tests conditionally

Author: IndrajeetPatil

tests/testthat/test-plot.describe_distribution.R

@@ -1,6 +1,6 @@
 test_that("`plot.see_parameters_distribution()` works", {
   set.seed(333)
-  x <- sample(1:100, 1000, replace = TRUE)
+  x <- sample.int(100, 1000, replace = TRUE)
   result <- datawizard::describe_distribution(x)
   expect_s3_class(plot(result), "gg")
 

tests/testthat/test-plot.p_direction.R

@@ -12,8 +12,10 @@ skip_on_cran()
 skip_if_not_installed("bayestestR", minimum_version = "0.14.1")
 skip_if_not_installed("parameters", minimum_version = "0.22.3")
 
-test_that("`plot.see_p_direction works {parameters}}", {
+test_that("`plot.see_p_direction` works {parameters}", {
   skip_if_not_installed("vdiffr")
+  skip_if_not_installed("ggridges")
+
   data(qol_cancer, package = "parameters")
   model <- lm(QoL ~ time + age + education, data = qol_cancer)
   set.seed(123)
@@ -32,6 +34,8 @@ test_that("`plot.see_p_direction works {parameters}}", {
 
 test_that("plot p_direction, glmmTMB", {
   skip_if_not_installed("glmmTMB")
+  skip_if_not_installed("ggridges")
+
   data(Salamanders, package = "glmmTMB")
   m1 <- glmmTMB::glmmTMB(count ~ mined + cover + (1 | site),
     zi = ~mined,

tests/testthat/test-plot.p_significance.R

@@ -14,6 +14,8 @@ skip_if_not_installed("parameters", minimum_version = "0.22.3")
 
 test_that("`plot.see_p_significance works for two thresholds", {
   skip_if_not_installed("vdiffr")
+  skip_if_not_installed("ggridges")
+
   set.seed(123)
   x <- rnorm(1000, 1, 1.2)
   out <- bayestestR::p_significance(x)
@@ -30,6 +32,8 @@ test_that("`plot.see_p_significance works for two thresholds", {
 
 test_that("`plot.see_p_significance works {parameters}}", {
   skip_if_not_installed("vdiffr")
+  skip_if_not_installed("ggridges")
+
   data(qol_cancer, package = "parameters")
   model <- lm(QoL ~ time + age + education, data = qol_cancer)
   set.seed(123)
@@ -54,6 +58,8 @@ test_that("`plot.see_p_significance works {parameters}}", {
 
 test_that("plot p_significance, glmmTMB", {
   skip_if_not_installed("glmmTMB")
+  skip_if_not_installed("ggridges")
+
   data(Salamanders, package = "glmmTMB")
   m1 <- glmmTMB::glmmTMB(count ~ mined + cover + (1 | site),
     zi = ~mined,