library(testthat)
library(SpectraVis)
library(msdata)
fl <- system.file("TripleTOF-SWATH", "PestMix1_DDA.mzML", package = "msdata")
pest_ms2 <- filterMsLevel(Spectra(fl), 2L)
pest_ms2 <- pest_ms2[c(808, 809, 945:955)]
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.