Nothing
context('plotChromFromFile')
test_that('plotChromFromFile works',{
pl <- plotChromFromFile(list.files(system.file('mzML',package = 'binneR'),
full.names = TRUE)[1],scans = c(6,18))
expect_true(identical(class(pl),c('gg','ggplot')))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.