tests/testthat/test-fetchSRI.R

In soilDB: Soil Database Interface

test_that("get_SRI() works", {

  skip_if_offline()

  skip_on_cran()
  
  skip_if(as.logical(Sys.getenv("R_SOILDB_SKIP_LONG_EXAMPLES", unset = TRUE)))

  sri_deschutes <- get_SRI(gdb = 'Deschutes')

  expect_equal(nrow(sri_deschutes), 4114)

  # multiple layers

  sri_deschutes_multiple <- get_SRI(gdb = 'Deschutes', layers = c('MapUnits', 'ErosionAndHydro', 'SampleSites_MaterialsTesting'), quiet = T)

  expect_equal(length(sri_deschutes_multiple), 3)

  # short name

  sri_deschutes_multiple <- get_SRI(gdb = 'desc', layers = c('MapUnits', 'ErosionAndHydro', 'SampleSites_MaterialsTesting'), quiet = T)

  expect_equal(length(sri_deschutes_multiple), 3)

})

test_that("get_SRI_layers() works", {

  skip_if_offline()

  skip_on_cran()
  
  skip_if(as.logical(Sys.getenv("R_SOILDB_SKIP_LONG_EXAMPLES", unset = TRUE)))
  
  sri_layers <- get_SRI_layers(gdb =  'Winema')

  expect_equal(nrow(sri_layers), 11)

  # short name

  sri_layers <- get_SRI_layers(gdb = 'win')

  expect_equal(nrow(sri_layers), 11)

})