tests/testthat/test_methodMassInfo_GPC.R

library(testthat)
library(data.table)
library(openxlsx)

test_that("Test methodMassInfo GPC", {

    mmi <- methodMassInfo(nameLibrary = "/home/jchitpin/Downloads/Masters/Projects/MATRIX/RPackages/testData/testthat_sampleGPCSMv67.xlsx")

    truthData <- readRDS(file = "/home/jchitpin/Downloads/Masters/Projects/MATRIX/RPackages/testData/testthat_mmi_20170117_Weston validation plasma_PC MRM_HX.rds")
    expect_equal(mmi, truthData)
})
jchitpin/blistR documentation built on July 8, 2019, 6:29 p.m.