inst/unitTests/test_ResulTable.R

In jpromeror/EventPointer: An effective identification of alternative splicing events using junction arrays and RNA-Seq data

test_ResulTable <- function() {
  
  obs <- tryCatch(ResulTable(EP_Result = NULL,
                             coef=1,
                             number=Inf), error=conditionMessage)
  
  checkIdentical("EP_Result field is empty", obs)
  
}