tests/testthat/test-svg.R

In TGuillerme/Inapp: Reconstruction of Inapplicable Discrete Characters on Phylogenetic Trees

context("svg functions")
library('ape')

test_that('SVG can be plotted', {
    trees <- structure(list(
      tree1 = read.tree(text='((a, b), ((c, (d, (e, f))), ((g, h), (i, j))));'),
      tree2 = read.tree(text='((a, b), ((c, (d, (e, f))), ((g, i), (h, j))));'),
      tree3 = read.tree(text='(a, (b, ((c, (d, (e, h))), ((g, f), (i, j)))));'),
      tree1again = read.tree(text='((a, b), ((c, (d, (e, f))), ((g, h), (i, j))));')),
      class='multiPhylo')

    treesGeneratedBy <- c('text', 'text', 'text', 'duplication')

    canvas <- SVGCanvas(trees=trees,
                     outgroupTips=c('a', 'b'),
                     analysisNames=treesGeneratedBy,
                     width=300, height=300)

    PlotExample <- function ()
    PlotCharacterMapping(char = '0011----11',
                      stateLabels = c('Absent', 'Present'),
                      singleTree = trees[[1]],
                      legendText = 'This is printed on PNGs',
                      canvas = canvas,
                      svgFilename = 'tree_number_%s.svg')
  if (requireNamespace('vdiffr', quietly = TRUE)) {
    vdiffr::expect_doppelganger('SVG example', PlotExample)
  }

  states_matrix <- apply.reconstruction(trees[[1]], '0011----11')
  matrix_data <- MatrixData(states_matrix, states_matrix, state.labels=c('Zero', 'One'))
  expect_equal(c('0: Zero', '1: One', '-: Inapplicable'), matrix_data$legend)
  expect_equal(c('0' = "#fc8d59", '1' ="#91bfdb", '-' = "lightgrey"),
               matrix_data$legend_col)
})