tests/testthat/test_map_plotting_functions.R

In zachcp/phylogeo: Mapping of Phyloseq Information

################################################################################
# Use testthat to test phyloseq data objects plotting functions
################################################################################
library("phylogeo") 
library("testthat") 
library("igraph")

test_that("map_phyloseq: results in a ggplot", {
  data(mountainsoil)
  p1 <- map_phyloseq(mountainsoil)
  # ggplot-class tests
  expect_is(p1, "ggplot")
})

test_that("map_clusters: returns a ggplot", {
  data(mountainsoil) #no tree shoud fail 
  data(epoxomicin_KS) #has tree should work
  p1 <- map_clusters(epoxomicin_KS)
  # ggplot-class tests
  expect_error(map_clusters(mountainsoil))
  expect_is(p1, "ggplot")
})

test_that("map_tree: tree_objects are present when mapping a phylogenetic tree", {
  data(mountainsoil)
  data(epoxomicin_KS)
  p1 <- map_tree(epoxomicin_KS)
  # ggplot-class tests
  expect_error(map_tree(mountainsoil))
  expect_is(p1, "ggplot")
})

test_that("map_network: can use a precalculated network", {
  data(batmicrobiome)
  p1 <- map_network(batmicrobiome)
  ig <- make_network(batmicrobiome)
  p2 <- map_network(batmicrobiome, igraph=ig)
  # ggplot-class tests
  expect_is(p1, "ggplot")
  expect_is(p2, "ggplot")
  expect_is(ig, "igraph")
})