tests/testthat/test_HSIplotter_categorical.R

In MVR-GIS/nybem: NY Bight Ecological Model

# Get americancoot HSI model record from the `ecorest`package
americancoot_ecorest <- ecorest::HSImodels$americancoot

# Create labels
xlab <- c("Emerg. Veg. %", "Emerg. Veg./Openwater Index", NA)
ylab <- c(NA, "emerge.veg", NA)

# Create the plot
HSIplotter(americancoot_ecorest)

# set parameters for testing within function
SI <- americancoot_ecorest


test_that("check plot output for categorical metrics", {
  expect_snapshot_output(HSIplotter(americancoot_ecorest))
  vdiffr::expect_doppelganger("HSI-plot-americancoot-categorical",
                              fig = function() HSIplotter(americancoot_ecorest))
})

test_that("check errors", {
  expect_error(HSIplotter(americancoot_ecorest, xlab = c("1")))
  expect_error(HSIplotter(americancoot_ecorest, ylab = c("1")))
})