tests/testthat/test-query_webdatasets.R

In USGS-R/geoknife: Web-Processing of Large Gridded Datasets

context("using query for webdata")


test_that("webdata query returns a datagroup", {
  testthat::skip_on_cran()
  datasets <<- query('webdata')
  expect_is(datasets, 'datagroup')
})

test_that("webdata query returns a list", {
  testthat::skip_on_cran()
  wd <- webdata(datasets[4])
  expect_is(query(wd,'variables'), 'character')
})

test_that("webdata title returns a title", {
  testthat::skip_on_cran()
  expect_is(title(datasets[4]), 'character')
})

test_that("webdata url returns a url", {
  testthat::skip_on_cran()
  expect_is(url(datasets[4]), 'character')
  expect_is(url(datasets[4:5]), 'character')
})


test_that("webdata abstract returns an abstract", {
  testthat::skip_on_cran()
  expect_is(url(datasets[4]), 'character')
})