tests/manual/test-code/test-Data_Plotting.R

In DLMtool/DLMtool: Data-Limited Methods Toolkit

testthat::context("test plot Data")

DLMextra(TRUE)
library(DLMextra)
Dat <- avail('Data')
Dat <- Dat[!Dat %in% c("SimulatedData", "Simulation_1")]
          
dev.new()          
for (dat in Dat) {
  testthat::test_that(paste("plot works with ", dat), {
    datobj <- get(dat)
    MP <- Can(datobj)
    mptype <- MPtype(MP)
    outputMPs <- mptype[mptype[,2] == "Output",1]
    datobj <- TAC(datobj, outputMPs)
    testthat::expect_error(plot(datobj), NA)
  })
}


for (dat in Dat) {
  testthat::test_that(paste("`summary` works with ", dat), {
    datobj <- get(dat)
    testthat::expect_error(summary(datobj, wait=FALSE), NA)
  })
}
 
if(!is.null(dev.list()))  dev.off()