test_that("rm_na_taxa works", {
# Load test data
test_data <- system.file("testdata/test_data_counts.Rds",
package = "smpds") %>%
readr::read_rds()
output <- test_data %>%
smpds::rm_na_taxa(cols = 1:6)
expected <- test_data %>%
dplyr::select(site_name:ID_BIOME,
Abies,
Acer,
Amaranthaceae,
Apiaceae,
Artemisia,
Asteroideae,
Betula,
Alnus)
expect_equal(output, expected)
# Incorrect indices for cols
expect_error(test_data %>%
smpds::rm_na_taxa)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.