tests/testthat/test-golden_rules.R

test_that("Heteroatom ratios can be checked", {
  ratio_checks <- elementFrequencies(c('H2O','C12H22O11')) %>% 
    elementRatios() %>% 
    elementRatioCheck()
  
  expect_s3_class(ratio_checks,'tbl_df')
})
jasenfinch/mzAnnotation documentation built on Feb. 25, 2023, 1:27 a.m.