tests/testthat/test-subset.R

test_that("subset works", {
  h <- rtide::harmonics
  expect_equal(
    subset(h, h$Station$Station[2])$Station,
    h$Station[2, , drop = FALSE]
  )
})
poissonconsulting/rtide documentation built on June 10, 2022, 5:22 p.m.