tests/testthat/test-download-oni.R

context('testing download_oni')

test_that('the first and last rows of ONI_month_window are NA',{
  skip_on_cran()
  oni <- download_oni()
  expect_true(is.na(oni$ONI_month_window[1]))
  expect_true(is.na(oni$ONI_month_window[nrow(oni)]))
})

Try the rsoi package in your browser

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

rsoi documentation built on Nov. 17, 2023, 1:08 a.m.