tests/testthat/test-query_lagos_names.R

context("query_lagos_names")

test_that("query_lagos_names works", {

  dt <- readRDS("lagos_test_subset.rds")
  expect_equal(query_lagos_names("chla", dt = dt), "epi_nutr")

})
cont-limno/LAGOS documentation built on July 8, 2023, 2:34 a.m.