tests/testthat/test-organize_caes.R

context("test-organize_caes")

test_that("checkear shape", {
  bases <- suppressWarnings(dplyr::bind_rows(toybase_individual_2016_03, toybase_individual_2016_04))
  expect_warning(bases_caes <- bases %>% organize_caes())
  expect_equal(ncol(bases_caes), 185)
})

Try the eph package in your browser

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

eph documentation built on June 23, 2024, 5:06 p.m.