tests/testthat/test-getPeaks.R

context('getPeaks')

file <- system.file('example-data/1.mzML.gz',package = 'binneR')

test_that('sampProcess works',{
	pks <- sampProcess(file,5:13,2)
	
	expect_s3_class(pks,'tbl_df')
	expect_equal(ncol(pks),3)
})

test_that('getPeaks works single core',{
	pks <- getPeaks(file,5:13)
	
	expect_s3_class(pks,'tbl_df')
	expect_equal(ncol(pks),7)
})

test_that('getHeaders works single core',{
	h <- getHeaders(file)
	expect_s3_class(h,'data.frame')
})
jasenfinch/binneR documentation built on Aug. 21, 2023, 9:22 a.m.