tests/testthat/test-bdiv_heatmap.r

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

test_that("bdiv_heatmap", {
  
  expect_silent(bdiv_heatmap(rare5, weighted=c(TRUE,FALSE), tracks=c("Body Site", "Age")))
  
  skip_on_cran()
  
  expect_silent(bdiv_heatmap(rare5, weighted=c(TRUE,FALSE), tracks=c("Body Site", "Age")))
  expect_silent(bdiv_heatmap(rare5[1:2]))
  expect_error(bdiv_heatmap(rare5[1]))
  expect_error(bdiv_heatmap(rare5, title = NA))
})