tests/testthat/test-split.R

In jasenfinch/metabolyseR: Methods for Pre-Treatment, Data Mining and Correlation Analyses of Metabolomics Data

library(metaboData)

context('split')

test_that('split works',{
  d <-  analysisData(abr1$neg,abr1$fact) %>%
    split(cls = 'day')
  
  expect_identical(class(d),'list')
  expect_length(d,6)
})