tests/testthat/test-drop_linelist.R

test_that("tests for drop_linelist", {
  x <- make_linelist(cars, age = "speed")
  expect_identical(cars, drop_linelist(x, TRUE))
  y <- drop_linelist(x, FALSE)
  expect_identical(tags(x, TRUE), attr(y, "tags"))
})

Try the linelist package in your browser

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

linelist documentation built on June 22, 2024, 10:54 a.m.