conditionally skip that that require MASS

teunbrand · teunbrand · commit 269ca31f8477 · 2024-07-09T15:42:26.000+02:00
diff --git a/tests/testthat/test-stat-density2d.R b/tests/testthat/test-stat-density2d.R
@@ -1,3 +1,5 @@
+skip_if_not_installed("MASS")
+
 test_that("uses scale limits, not data limits", {
   base <- ggplot(mtcars, aes(wt, mpg)) +
     stat_density_2d() +
diff --git a/tests/testthat/test-stat-ellipsis.R b/tests/testthat/test-stat-ellipsis.R
@@ -1,3 +1,5 @@
+skip_if_not_installed("MASS")
+
 test_that("stat_ellipsis returns correct data format", {
   n_seg <- 40
   d <- data_frame(x = c(1, 1, 4, 4, 4, 3, 3, 1), y = c(1:4, 1:4), id = rep(1:2, each = 4))

Original file line number	Diff line number	Diff line change
`@@ -1,3 +1,5 @@`
	`1`	`+skip_if_not_installed("MASS")`
	`2`	`+`
`1`	`3`	`test_that("uses scale limits, not data limits", {`
`2`	`4`	`base <- ggplot(mtcars, aes(wt, mpg)) +`
`3`	`5`	`stat_density_2d() +`
Original file line number	Diff line number	Diff line change
`@@ -1,3 +1,5 @@`
	`1`	`+skip_if_not_installed("MASS")`
	`2`	`+`
`1`	`3`	`test_that("stat_ellipsis returns correct data format", {`
`2`	`4`	`n_seg <- 40`
`3`	`5`	`d <- data_frame(x = c(1, 1, 4, 4, 4, 3, 3, 1), y = c(1:4, 1:4), id = rep(1:2, each = 4))`