tests/testthat/test-display-names.R

context("display_names")

test_that("display_names works", {

  skip_on_cran()
  skip_on_ci()

  lg <- lagosus_load("locus")

  expect_equal(
    display_names(names(lg$locus$lake_information))[22],
    "ID (ws)")
})
cont-limno/LAGOSUS documentation built on Aug. 24, 2023, 10:01 a.m.