tests/testthat/test-getPeaks.R

In jasenfinch/binneR: Spectral Processing for High Resolution Flow Infusion Mass Spectrometry

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')
})