tests/testthat/test-saveReadRSTBX.R

In bleutner/RStoolbox: Remote Sensing Data Analysis

context("save and read RSTBX objects")
library(terra)

## Create RSTBX object
train <- readRDS(system.file("external/trainingPoints_lsat.rds", package="RStoolbox"))
sc <- superClass(rlogo, train, tuneLength = 1, resp="class")

## Save and re-import
outbase <- paste0(tempdir(),"/test-RSTOOLBOX-sc")
saveRSTBX(sc, outbase , overwrite = TRUE)
sc_re <- readRSTBX(paste0(outbase, ".rds"))
womap <- setdiff(names(sc), "map")

test_that("export and import works",{
    expect_is(sc_re, c("RStoolbox", "superClass"))
    expect_equal(sc[womap], sc_re[womap])
    expect_equal(values(sc_re$map), values(sc$map))
})