tests/testthat/test-filter.R

test_that("filter", {
  expect_identical(filter(mcmc_data_example), mcmc_data_example)
  
  filter1 <- filter(mcmc_data_example, species == "Human")
  expect_identical(filter1$data$species, "Human")
})
poissonconsulting/mcmcdata documentation built on Nov. 2, 2024, 2:20 a.m.