inst/unitTests/test_CDFfromGTF.R

test_CDFfromGTF <- function() {
  obs <- tryCatch(CDFfromGTF(input="Test"), error=conditionMessage)
  checkIdentical("Microarray field empty", obs)
  
  obs <- tryCatch(CDFfromGTF(input = "CustomGTF", inputFile = NULL, PSR="T1", Junc="T2"
                  , PathCDF="T3", microarray = "RTA"), error=conditionMessage)
  checkIdentical("inputFile parameter is empty", obs)

}

Try the EventPointer package in your browser

Any scripts or data that you put into this service are public.

EventPointer documentation built on Nov. 8, 2020, 7:12 p.m.