tests/testthat/test-draw_chromatograms.R

context("draw_chromatogram")

library(testthat)
data("aligned_peak_data")

x <- draw_chromatogram(data = aligned_peak_data, rt_col_name = "time", samples = "M2", show_num = FALSE, plot = F, width = 0.01)

test_that("output is correct", {
    expect_equal(length(x), 2) # list of two elements
    expect_equal(dim(x[["df"]]), c(8594, 5))
})

Try the GCalignR package in your browser

Any scripts or data that you put into this service are public.

GCalignR documentation built on Aug. 26, 2020, 9:06 a.m.