tests/testthat/test_node_taxa.R

In POMS: Phylogenetic Organization of Metagenomic Signals

test_that("taxa on each side of the node are correct, with combined labels and threshold of 0.51", {
 
  exp_output <- c("Bacteria; Bacteroidetes; Bacteroidia; Bacteroidales; Porphyromonadaceae (Family)",
                  "Bacteria; Bacteroidetes; Bacteroidia; Bacteroidales; Porphyromonadaceae; NA (Genus)")

  obs_output <- node_taxa(in_tree = ex_tree, taxon_labels = ex_taxa_labels,
                          node_label = "n1", combine_labels = TRUE, threshold = 0.51)
  
  expect_equal(obs_output, exp_output)

})


test_that("taxa on each side of the node are correct, with simple (non-combined) labels and threshold of 0.95", {
  
  exp_output <- c("Porphyromonadaceae (Family)", "Bacteroidales (Order)")
  
  obs_output <- node_taxa(in_tree = ex_tree, taxon_labels = ex_taxa_labels,
                          node_label = "n1", combine_labels = FALSE, threshold = 0.95)
  
  expect_equal(obs_output, exp_output)
  
})