tests/testthat/test-sc_get_params.R

In mhweber/StreamCatTools: Streamcat Tools

context("Test that sc_get_params is pulling in StreamCat API parameters")


test_that("st_get_params for region parameters", {
            params <- sc_get_params(param='areaOfInterest')
            expect_true(exists("params"))
            expect_equal(params,c("catchment","watershed",
                                   "riparian_catchment",
                                   "riparian_watershed","other"))
          })

test_that("st_get_params for name parameters", {
  params <- sc_get_params(param='name')
  expect_true(exists("params"))
  expect_equal(length(params),588)
})