tests/testthat/test-fct_list_layers.R

test_that("testing list layers", {
  layers <- sf::st_layers("vavau-crop-survey.gpkg")$name
  layers_df <- list_layers("vavau-crop-survey.gpkg", "vavau-crop-survey.gpkg")
  expect_equal(layers, layers_df$layers)
})
livelihoods-and-landscapes/maplandscape documentation built on March 20, 2023, 5:43 a.m.