tests/testthat/test-table_addColumn.R

context("table_addColumn")

test_that("table_addColumn() works", {
  locationTbl <- get(data("wa_monitors_500"))
  testTbl <- table_addColumn(locationTbl, "siteName")
  expect_equal(c(names(locationTbl),"siteName"), names(testTbl))
})

Try the MazamaLocationUtils package in your browser

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

MazamaLocationUtils documentation built on Sept. 11, 2024, 9:08 p.m.