tests/testthat/test-get_iers.R

context("test-get_iers")

test_that("get iers works", {
  testthat::skip_on_cran()
  testthat::skip_on_travis()

  eop <- get_iers()
  expect_s3_class(eop, "data.frame")
  expect_equal(ncol(eop), 8L)
  expect_gt(nrow(eop), 20990)
})

Try the earthtide package in your browser

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

earthtide documentation built on Nov. 16, 2023, 5:07 p.m.