inst/unitTests/test_classes.R

testDir <- system.file("unitTests", package="systemPipeR")
test.import <- function(){
	## Test import for generating SYSargs instance
	args <- systemArgs(sysma=file.path(testDir, "tophat.param"), mytargets=file.path(testDir, "targets.txt"))	
	checkTrue(class(args)=="SYSargs")
}

Try the systemPipeR package in your browser

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

systemPipeR documentation built on Jan. 26, 2021, 2 a.m.