tests/testthat/test-station_ids.R

context("test-station_ids.R")

test_that("station_ids works", {
  x <- station_ids()
  expect_equal(length(x) >= 1580, TRUE)
})

Try the rnrfa package in your browser

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

rnrfa documentation built on Sept. 8, 2022, 5:07 p.m.