context("metaData")
s <- createMassSpectrum(mass=1:10, intensity=11:20, metaData=list(name="test spectrum"))
test_that("metaData", {
expect_identical(metaData(s)$name, "test spectrum")
})
test_that("metaData<-", {
l <- list(a=1:3, b=letters[1:3])
metaData(s) <- l
expect_identical(metaData(s), l)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.