tests/testthat/test_acceptance_lfq_protein_only.R

In MassDynamics/lfq_processing: Processes Proteomics Files for Quantification.

library(LFQProcessing)
library(testthat)

# Run Code
current_her2 =  lfq_transformer(ma_tables = example_lfq_her2_targetted_therapy_tables,
                                output_folder = "./tmp",
                                imputeStDev=0.3,
                                imputePosition=1.8,
                                protein_only=TRUE)

current_her2 = unname(current_her2)
acceptance_test<- function(current, expected,
                           tolerance = 10**-3){
  
  test_that("approximately equal", {
    
    approx_same = all.equal(expected$prot, current$prot, tolerance = tolerance)
    expect_true(approx_same) #tolerate small differences
  })
  
}

load("../data/expected_her2.rda")

acceptance_test(current_her2, expected_her2, 10**-3)