tests/testthat/test-get_updates.R

In adamhsparks/GSODR: Global Surface Summary of the Day ('GSOD') Weather Data Client

test_that("get_updates() returns a data.table", {
  skip_if_offline()
  x <- get_updates()
  expect_s3_class(x, "data.table")
  expect_named(x, c("STNID", "YEAR", "DATE", "COMMENT"))
  expect_type(x$STNID, "character")
  expect_type(x$YEAR, "integer")
  expect_s3_class(x$DATE, "Date")
  expect_type(x$COMMENT, "character")
})