tests/testthat/test-usairports.R

context("usairports")

test_that("usairports dimensions match", {
  expect_equal(nrow(usairports), 19615)
  expect_equal(ncol(usairports), 14)
})

test_that("usairports names are lower case", {
  expect_identical(names(usairports), tolower(names(usairports)))
})

Try the airports package in your browser

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

airports documentation built on July 1, 2020, 7:08 p.m.