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

In DLMtool/DLMtool: Data-Limited Methods Toolkit

testthat::context("Test MSE Plotting functions")
dev.new()       
DLMextra()
library(DLMextra)
rm(list=ls())
# setup()
MSEobj <- updateMSE(DLMextra::testMSE)
COSEWICobj <- runCOSEWIC(testOM, silent=TRUE)
funs <- plotFun(msg=FALSE)
funs <- funs[!funs == "plotOM"]

for (ff in funs) {
  testthat::test_that("main plot MSE functions", {
    fun <- get(ff)
    if (grepl("COSEWIC", ff)) {
      testthat::expect_error(fun(COSEWICobj), NA, info=ff)  
    } else {
      if ('Show' %in%names(formals(fun)) | '...' %in%names(formals(fun))) {
        testthat::expect_error(suppressMessages(suppressWarnings(fun(MSEobj, Show=FALSE))), NA, info=ff) 
      } else {
        testthat::expect_error(fun(MSEobj), NA, info=ff) 
      }
    }
  })
}

if(!is.null(dev.list()))  dev.off()