tests/testthat/test-cf_station.R

context("cf_station")

test_that("cf_station", {
  skip_on_cran()
  # skip_on_travis()
  
  tt = cf_station()

  expect_is(tt, "cfStation")
  expect_is(tt$name, "character")
  expect_is(tt$network, "character")
  expect_is(tt$agent, "numeric")
  expect_is(tt$start, "POSIXct")
  expect_is(tt$end, "POSIXct")
  expect_is(tt$open, "logical")
  expect_is(tt$distance, "numeric")
  expect_is(tt$lat, "numeric")
  expect_is(tt$lon, "numeric")
})

Try the clifro package in your browser

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

clifro documentation built on May 24, 2021, 9:06 a.m.