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))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.