tests/testthat/test-names.R

In caretSDM: Build Species Distribution Modeling using 'caret'

if (fs::dir_exists(here::here("tests", "testthat", "testdata"))) {
  pr_tif <- here::here("tests", "testthat", "testdata", "parana.tiff") |>
    stars::read_stars(quiet = TRUE)
  pr_gpkg <- here::here("tests", "testthat", "testdata", "parana.gpkg") |>
    sf::st_read(quiet = TRUE)
} else {
  pr_tif <- test_path("testdata", "parana.tiff") |>
    stars::read_stars(quiet = TRUE)
  pr_gpkg <- test_path("testdata","parana.gpkg") |>
    sf::st_read(quiet = TRUE)
}

# Predictors

test_that("predictors - sdm_area", {
  sa <- sdm_area(pr_gpkg, cell_size = 50000, crs = 6399)
  expect_equal(
    predictors(sa),
    c("GID0", "CODIGOIB1", "NOMEUF2", "SIGLAUF3")
  )
  expect_equal(
    get_predictor_names(sa),
    c("GID0", "CODIGOIB1", "NOMEUF2", "SIGLAUF3")
  )
})


test_that("predictors - set/get rename predictors", {
  sa <- sdm_area(pr_gpkg, cell_size = 50000, crs = 6399)
  expect_equal(
    set_predictor_names(sa, get_predictor_names(sa) |> tolower()) |> predictors(),
    c("gid0", "codigoib1", "nomeuf2", "siglauf3")
  )
})

test_that("predictors - set/get invalid rename predictors", {
  skip_on_cran()
  sa <- sdm_area(pr_gpkg, cell_size = 50000, crs = 6399)
  expect_snapshot(
    expect_error(
      set_predictor_names(sa, c("gid0", "codigoib1")),
      "Assertion on new_names failed."
    )
  )
})

test_that("names stars", {
  scen2 <- set_variables_names(scen, new_names = c("a", "b", "c"))
  expect_true(all(stars::st_get_dimension_values(scen2, "band") == c("a", "b", "c")))
  scen2 <- set_variables_names(scen2, bioc)
  expect_true(all(stars::st_get_dimension_values(scen2, "band") == c("bio1", "bio4", "bio12")))
  sa <- sdm_area(bioc, cell_size = 100000, crs = 6933)
  scen2 <- set_variables_names(scen, new_names = c("a", "b", "c"))
  scen2 <- set_variables_names(scen2, sa)
  expect_true(all(stars::st_get_dimension_values(scen2, "band") == c("bio1", "bio4", "bio12")))
})