csv <- purrr::map_df(readr::read_csv(system.file("csv", "seabirddiet.csv",
package = "seabirddietDB"),
col_types = readr::cols(),
guess_max = 1500), as.character)
test_that("seabird package data and latest csv match", {
expect_equivalent(csv, purrr::map_df(seabirddiet, as.character))
})
test_that("seabirddiet_ correct", {
expect_equivalent(
purrr::map_df(dplyr::select(seabirddiet, -.data$longitude, -.data$latitude), as.character),
purrr::map_df(sf::st_drop_geometry(seabirddiet_), as.character))
expect_equal(ncol(seabirddiet) - 1, ncol(seabirddiet_))
expect_equal(class(seabirddiet_), c("sf", "tbl_df", "tbl", "data.frame"))
})
test_that("validate columns", {
expect_equal(seabirddiet,seabirddiet %>% assertr::assert(is.numeric, year, startyear, endyear,
latitude, longitude, freq_occ, freq_num, freq_biomass) %>%
assertr::assert(is.logical, multiyear) %>%
assertr::assert(is.character, prey_age_group) %>%
assertr::assert(assertr::not_na, ref_ids, prey_taxon, pred_rank, year, multiyear) %>%
assertr::assert(assertr::is_uniq, id) %>%
assertr::assert(assertr::within_bounds(0, 1), freq_occ, freq_num, freq_biomass))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.