Add skip_on_ci() to tests and fix workflow

Author: JessUWE

tests/testthat/test-acro_add_comments.R

@@ -13,7 +13,7 @@ test_that("acro_add_comments works", {
   acro_finalise("test", "json")
 
   # Read the file content
-  file_content <- readLines(file.path("..", "testthat", "test", "results.json"))
+  file_content <- readLines(file.path("..", "testthat", "test", "results.json"), warn = FALSE)
 
   # Check the comment exists in the results
   expect_true(any(grepl(comment, file_content)))

tests/testthat/test-acro_add_exception.R

@@ -1,17 +1,18 @@
 test_that("acro_add_exception without initialising ACRO object first", {
+  skip_on_ci()
   acroEnv$ac <- NULL
   expect_error(acro_add_exception("output_0", "The disclosive cells are structural zeros and not actually disclosive"), "ACRO has not been initialised. Please first call acro_init()")
 })
 
 test_that("add_exceptions works", {
-  testthat::skip_on_cran()
+  skip_on_ci()
   acro_init()
   table <- acro_crosstab(index = nursery_data[, c("health")], columns = nursery_data[, c("finance")])
   acro_add_exception("output_0", "The disclosive cells are structural zeros and not actually disclosive")
   acro_finalise("test", "json")
 
   # Read the file content
-  file_content <- readLines(file.path("..", "testthat", "test", "results.json"))
+  file_content <- readLines(file.path("..", "testthat", "test", "results.json"), warn = FALSE)
   # Check the exception exists in the results
   expect_true(any(grepl("The disclosive cells are structural zeros and not actually disclosive", file_content)))
 })