tests/testthat/test-get_SDA_muaggatt.R

In soilDB: Soil Database Interface

test_that("get_SDA_muaggatt works", {
  skip_if_offline()

  skip_on_cran()
  
  res <- get_SDA_muaggatt(areasymbols = c("CA077", "CA630"))
  
  skip_if(is.null(res))
  
  expect_equal(nrow(res), length(unique(res$mukey)))
  expect_equal(nrow(get_SDA_muaggatt(mukeys = c(461994, 461995))), 2)
})