tests/testthat/test-cf_find_station.R

In ropensci/clifro: Easily Download and Visualise Climate Data from CliFlo

context("cf_find_station")

test_that("cf_find_station", {
  skip_on_cran()
  # skip_on_travis()

  tt = cf_find_station("island")

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