tests/testthat/test-save_load.R

In shinyscholar: A Template for Creating Reproducible 'shiny' Applications

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)
    expect_true(is.null(common$raster))
  })

  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)
    common$raster <- terra::unwrap(common$raster)
    expect_is(common$raster, "SpatRaster")
    expect_is(common$scatterplot, "function")

  })

  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)
    common$raster <- terra::unwrap(common$raster)
    expect_is(common$raster, "SpatRaster")
    expect_is(common$histogram, "function")
  })

  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")
    app$upload_file("core_load-load_session" = save_path)
    app$click("core_load-goLoad_session")
    common <- app$get_value(export = "common")
    loaded_values <- app$get_values()
    expect_equal(loaded_values$input[["plot_hist-bins"]], "100")
    expect_is(common$raster, "SpatRaster")
    app$stop()
  })

  test_that("load can handle old common objects", {

    skip_if(is_fedora())
    skip_on_cran()

    common_class <- R6::R6Class(
      classname = "common",
      public = list(
        old_data = "old_data",
        raster = terra::wrap(raster),
        state = NULL
      )
    )

    temp <- as.list(common_class$new())
    common_items <- names(temp)
    # exclude the non-public, function objects and tasks
    save_items  <- common_items[!common_items %in% c("clone", ".__enclos_env__")]
    temp <- temp[save_items]
    temp$state$main$version <- as.character(packageVersion("shinyscholar"))
    temp$state$main$app <- "shinyscholar"
    class(temp) <- "common"
    saveRDS(temp, save_path)

    app <- shinytest2::AppDriver$new(app_dir = system.file("shiny", package = "shinyscholar"), name = "e2e_load")
    app$set_inputs(introTabs = "Load Prior Session")
    app$upload_file("core_load-load_session" = save_path)
    app$click("core_load-goLoad_session")
    common <- app$get_value(export = "common")
    expect_is(common$raster, "SpatRaster")
    app$stop()
  })

}