tests/testthat/test-summarise_tracks_odkc.R

In parksandwildlife/wastdr: WA Sea Turtle Database 'WAStD' API Wrapper

test_that("add_hatching_emergence_success_odkc works", {
  data("odkc_data")
  x <- odkc_data$tracks_egg %>% add_hatching_emergence_success_odkc()
  testthat::expect_true("emergence_success" %in% names(x))
})

test_that("add_hatching_emergence_success_odkc works", {
  data("odkc_data")
  x <- odkc_data$tracks_egg %>%
    add_hatching_emergence_success_odkc() %>%
    hatching_emergence_success_odkc()
  testthat::expect_true("clutch_size_mean" %in% names(x))
})