Replace skip_on_cran() with skip_on_ci() in tests for acro_crosstab and acro_custom_output

Author: JessUWE

tests/testthat/test-acro_crosstab.R

@@ -1,11 +1,12 @@
 test_that("acro_crosstab without initialising ACRO object first", {
+  skip_on_ci()
   acroEnv$ac <- NULL
   expect_error(acro_crosstab(index = nursery_data[, c("health")], columns = nursery_data[, c("finance")]), "ACRO has not been initialised. Please first call acro_init()")
 })
 
 test_that("acro_crosstab works", {
+  skip_on_ci()
   # Creating the data frame with the specified values and row names
-  testthat::skip_on_cran()
   expected_table <- data.frame(
     convenient = c(2160, 2160, 2160),
     inconv = c(2160, 2160, 2160)

tests/testthat/test-acro_custom_output.R

@@ -1,10 +1,11 @@
 test_that("acro_custom_output without initialising ACRO object first", {
+  skip_on_ci()
   acroEnv$ac <- NULL
   expect_error(acro_custom_output(filepath), "ACRO has not been initialised. Please first call acro_init()")
 })
 
 test_that("acro_custom_output works", {
-  testthat::skip_on_cran()
+  skip_on_ci()
   acro_init()
   acro_custom_output("XandY.jpeg")
   acro_add_exception("output_0", "This image is not disclosive")