tests/testthat/test-get_NOAA.R

In oceanexplorer: Explore Our Planet's Oceans with NOAA

test_that("parsing urls", {

  expect_equal(
    url_parser("oxygen", 1, "annual")$external,
    "https://data.nodc.noaa.gov/thredds/dodsC/ncei/woa/oxygen/all/1.00/woa18_all_o00_01.nc"
  )
  expect_equal(
    url_parser("oxygen", 1, "winter")$external,
    "https://data.nodc.noaa.gov/thredds/dodsC/ncei/woa/oxygen/all/1.00/woa18_all_o13_01.nc"
  )
  expect_equal(
    url_parser("temperature", 1, "August")$external,
    "https://data.nodc.noaa.gov/thredds/dodsC/ncei/woa/temperature/decav/1.00/woa18_decav_t08_01.nc"
  )
  expect_equal(
    url_parser("salinity", 5, "March")$external,
    "https://data.nodc.noaa.gov/thredds/dodsC/ncei/woa/salinity/decav/5deg/woa18_decav_s03_5d.nc"
  )
})

test_that("files can be loaded from NOAA", {

  # for CRAN
  skip_if_offline()
  skip_on_cran()

  try(NOAA <- get_NOAA("temperature", 1, "annual"), silent = TRUE)
  # skip if not obtained
  skip_if_not(exists("NOAA"))
  expect_snapshot(NOAA)
})