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")

})

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.