tests/testthat/test-taxa_table.r

In rbiom: Read/Write, Analyze, and Visualize 'BIOM' Data

test_that("taxa_table", {
  
  skip_on_cran()
  
  expect_silent(taxa_table(hmp5, transform = "percent"))
  expect_silent(taxa_table(hmp5, transform = "rank"))
  expect_silent(taxa_table(hmp5, transform = "log1p"))
  expect_silent(taxa_table(hmp5, taxa = 0.01))
  expect_error(taxa_table(hmp5, taxa = FALSE))
  expect_error(taxa_table(hmp5, taxa = 'doesnotexist'))
  
  expect_silent(subset_taxa(hmp5, Phylum == 'Bacteroidetes'))
  
})