tests/testthat/test_display-names.R

context("display_names")

test_that("display_names works", {

  skip_on_cran()
  skip_on_ci()

  lg <- lagosne_load()

  expect_equal(display_names(names(lg$hu4))[9],
               "ID")
})

Try the LAGOSNE package in your browser

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

LAGOSNE documentation built on July 9, 2023, 5:10 p.m.