skip more on CRAN

Author: simon-smart88

tests/testthat/test-downloads.R

@@ -3,6 +3,7 @@ if (suggests){
 
     skip_if(Sys.which("pandoc") == "")
     skip_if(is_fedora())
+    skip_on_cran()
 
     app <- shinytest2::AppDriver$new(app_dir = system.file("shiny", package = "shinyscholar"), name = "e2e_markdown")
     app$set_inputs(tabs = "select")
@@ -48,6 +49,7 @@ if (suggests){
   test_that("{shinytest2} recording: e2e_table_download", {
 
     skip_if(is_fedora())
+    skip_on_cran()
 
     app <- shinytest2::AppDriver$new(app_dir = system.file("shiny", package = "shinyscholar"), name = "e2e_table_download")
     app$set_inputs(tabs = "select")
@@ -66,6 +68,7 @@ if (suggests){
   test_that("{shinytest2} recording: e2e_plot_downloads", {
 
     skip_if(is_fedora())
+    skip_on_cran()
 
     app <- shinytest2::AppDriver$new(app_dir = system.file("shiny", package = "shinyscholar"), name = "e2e_plot_downloads")
     app$set_inputs(tabs = "select")

tests/testthat/test-metadata.R

@@ -95,6 +95,7 @@ if (suggests){
 
     skip_if(Sys.which("pandoc") == "")
     skip_if(is_fedora())
+    skip_on_cran()
 
     withr::with_temp_libpaths({
       upload_path <- list.files(system.file("extdata", "wc", package = "shinyscholar"),

tests/testthat/test-save_load.R

@@ -2,6 +2,7 @@ if (suggests){
   test_that("{shinytest2} recording: e2e_empty_save", {
 
     skip_if(is_fedora())
+    skip_on_cran()
 
     rerun_test("empty_save_test", list(save_path = save_path))
     common <- readRDS(save_path)
@@ -11,6 +12,7 @@ if (suggests){
   test_that("{shinytest2} recording: e2e_save_scat", {
 
     skip_if(is_fedora())
+    skip_on_cran()
 
     rerun_test("save_scat_test", list(path = raster_path, save_path = save_path))
     common <- readRDS(save_path)
@@ -23,6 +25,7 @@ if (suggests){
   test_that("{shinytest2} recording: e2e_save_hist", {
 
     skip_if(is_fedora())
+    skip_on_cran()
 
     rerun_test("save_hist_test", list(path = raster_path, save_path = save_path))
     common <- readRDS(save_path)
@@ -34,6 +37,7 @@ if (suggests){
   test_that("{shinytest2} recording: e2e_load", {
 
     skip_if(is_fedora())
+    skip_on_cran()
 
     app <- shinytest2::AppDriver$new(app_dir = system.file("shiny", package = "shinyscholar"), name = "e2e_load")
     app$set_inputs(introTabs = "Load Prior Session")
@@ -49,6 +53,7 @@ if (suggests){
   test_that("load can handle old common objects", {
 
     skip_if(is_fedora())
+    skip_on_cran()
 
     common_class <- R6::R6Class(
       classname = "common",

tests/testthat/test-select_user.R

@@ -12,6 +12,7 @@ if (suggests){
   test_that("{shinytest2} recording: e2e_select_user", {
 
     skip_if(is_fedora())
+    skip_on_cran()
 
     rerun_test("select_user_test", list(raster_path = raster_path, save_path = save_path))
     common <- readRDS(save_path)
@@ -22,6 +23,7 @@ if (suggests){
   test_that("{shinytest2} recording: e2e_select_user_enter", {
 
     skip_if(is_fedora())
+    skip_on_cran()
 
     rerun_test("select_user_test_enter", list(raster_path = raster_path, save_path = save_path))
     common <- readRDS(save_path)
@@ -32,6 +34,8 @@ if (suggests){
   test_that("Error messages reach logger and can be retrieved", {
 
     skip_if(is_fedora())
+    skip_on_cran()
+
     app <- shinytest2::AppDriver$new(app_dir = system.file("shiny", package = "shinyscholar"), name = "e2e_select_user")
     app$set_inputs(tabs = "select")
     app$set_inputs(selectSel = "select_user")