tests/testthat/test_rtDevModelling.R

In JosieLHayes/adductomicsR: Processing of adductomic mass spectral datasets

library(adductomicsR)
library(adductData)
library(ExperimentHub)
eh  = ExperimentHub::ExperimentHub()
temp = AnnotationHub::query(eh, 'adductData')
rtDevModels = suppressMessages(suppressWarnings(temp[['EH1960']])) #first mzXML file
# rtDevModelling(MS2Dir = system.file("extdata", package = "adductData"),
# nCores=4, runOrder = paste0(system.file("extdata", package = "adductomicsR"),
#  '/runOrder.csv'))
# load(paste0(system.file("extdata", package = "adductData"),"/rtDevModels.RData"))
# MS2Dir = system.file("extdata", package = "adductData")
test_that('RT deviation models are correct', {
    expect_that(rtDevModels, is_a('list'))
})