tests/testthat/test_CatalogNode.R

# test_CatalogNode.R
# Author: Emmanuel Blondel <emmanuel.blondel1@gmail.com>
#
# Description: Integration tests for CatalogNode
#=======================
require(thredds, quietly = TRUE)
require(testthat)

test_that("browse catalog node",{
 
  top_uri <- 'https://oceandata.sci.gsfc.nasa.gov/opendap/catalog.xml'
  Top <- thredds::CatalogNode$new(top_uri)
  expect_is(Top, "CatalogNode")
  
})

Try the thredds package in your browser

Any scripts or data that you put into this service are public.

thredds documentation built on Sept. 1, 2023, 5:08 p.m.