tests/testthat/test-collections.R

In neuroconductor-devel/neurovault: 'Neurovault' Database API Access

test_that("Simple Collections Call", {

  res = nv_collection(doi = "10.1016/j.neurobiolaging.2012.11.002")
  expect_true(res$response$status_code == 200)

  id = nv_collection_id(name = "FeatureX IAPS Test")
  expect_silent({
    imgs = nv_collection_images(id = id, verbose = FALSE)
  })
})