!!!Caution work in progress!!!
knitr::opts_chunk$set(echo = TRUE)
library(bibliospec)
datdir<-system.file("extdata", package = "bibliospec") tmp <- file.path(datdir,dir(datdir)) zip <- grep("*.zip",tmp,value=T) print(zip) unzip(zip ,exdir = datdir) dat <- grep("*\\.dat",file.path(datdir,dir(datdir)),value=T) BB <- Blib() BB$build(dat , outfile = "test0_0.blib", cutoff=0.0 )
db <-file.path(path.package("bibliospec"),"extdata/peptideStd.sqlite") BS <- Bibliospec(db) BS$summary() spectrMet <- BS$getSpectraMeta() peaks <- BS$getPeaks() dim(peaks)
psmSet <- BS$getPsmSet() psmSet[[1]]
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.