context("auk_rollup")
test_that("auk_rollup rolls up to species level", {
ebd <- system.file("extdata/ebd-rollup-ex.txt", package = "auk") %>%
read_ebd(rollup = FALSE)
ebd_ru <- auk_rollup(ebd)
expect_lt(nrow(ebd_ru), nrow(ebd))
vars <- c("checklist_id", "scientific_name")
expect_gt(anyDuplicated(ebd[, vars]), 0)
expect_equal(anyDuplicated(ebd_ru[, vars]), 0)
expect_equal(unique(ebd_ru$category), "species")
dropped_cols <- c("subspecies_common_name", "subspecies_scientific_name")
expect_true(all(dropped_cols %in% names(ebd)))
expect_true(all(!dropped_cols %in% names(ebd_ru)))
})
test_that("auk_rollup works with unique = FALSE", {
ebd <- system.file("extdata/ebd-rollup-ex.txt", package = "auk") %>%
read_ebd(unique = FALSE, rollup = FALSE)
ebd_ru <- auk_rollup(ebd)
expect_lt(nrow(ebd_ru), nrow(ebd))
vars <- c("sampling_event_identifier", "scientific_name")
expect_gt(anyDuplicated(ebd[, vars]), 0)
expect_equal(anyDuplicated(ebd_ru[, vars]), 0)
expect_equal(unique(ebd_ru$category), "species")
dropped_cols <- c("subspecies_common_name", "subspecies_scientific_name")
expect_true(all(dropped_cols %in% names(ebd)))
expect_true(all(!dropped_cols %in% names(ebd_ru)))
})
context("auk_rollup")
test_that("auk_rollup keeps higher taxa", {
ebd <- system.file("extdata/ebd-rollup-ex.txt", package = "auk") %>%
read_ebd(rollup = FALSE)
ebd_ru <- auk_rollup(ebd, drop_higher = FALSE)
expect_lt(nrow(ebd_ru), nrow(ebd))
vars <- c("checklist_id", "scientific_name")
expect_gt(anyDuplicated(ebd[, vars]), 0)
expect_equal(anyDuplicated(ebd_ru[, vars]), 0)
expect_equal(sort(unique(ebd_ru$category)),
c("hybrid", "slash", "species", "spuh"))
dropped_cols <- c("subspecies_common_name", "subspecies_scientific_name")
expect_true(all(dropped_cols %in% names(ebd)))
expect_true(all(!dropped_cols %in% names(ebd_ru)))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.