tests/testthat/test-search-tools.R

test_that("search_tools", {
  skip_on_cran()
  testthat::skip_if(is.null(search_saga()))

  saga <- saga_gis()

  res <- search_tools(saga, "slope")
  testthat::expect_gt(nrow(res), 0)
})
stevenpawley/Rsagacmd documentation built on Sept. 13, 2024, 6:04 a.m.