tests/testthat/test_plotMuSSE.R

In revbayes/RevGadgets: Visualization and Post-Processing of 'RevBayes' Analyses

context("tests the plotMuSSE function")

test_that("plot MuSSE", {
  # read in and process file
  bisse_file <-
    system.file("extdata",
                "sse/primates_BiSSE_activity_period_mini.p",
                package = "RevGadgets")
  pdata <- processSSE(bisse_file, burnin = 0)
  plot_new <- plotMuSSE(pdata)

  plot_file <-
    system.file("extdata", "graphs/plotMuSSE_df.rds", package = "RevGadgets")
  plot_orig <- readRDS(plot_file)

  tmp <- tempdir()
  pdf(paste0(tmp,"/Rplots.pdf"))
  # test for errors in plot_new
  expect_error(print(plot_new), NA)
  dev.off()

  #  compare plot data objects
  expect_equal(plot_new$data, plot_orig)

})