defaultSettings <- function() {
fileTypes <- list("Mass spectrometry data files" = list(patterns = c("*.netCDF", "*.mzXML", "*.mzData", "*.mzML")),
# "R data files" = list(patterns = c("*.RData","*.rda")),
"All files" = list(patterns = c("*")))
digits <- 2
labelNumber <- 5
Da <- .5 * 2 # for XIC filtering
labelDist <- .5 # for labels in graphs
MS1PlotType <- "l"
MS2PlotType <- "h"
chromaHeight <- 250
spectrumHeight <- 250
width <- 500
RtFormat <- "minutes:seconds"
RtFormats <- c("minutes:seconds", "minutes", "seconds")
chromaMode <- FALSE # i.e. total ion count is the default
# Fonts
fontHead <- list(weight="bold", family="sans", size=12, color="grey25")
fontHead2 <- list(family="sans", size=10, color="grey10")
fontReg <- list(weight="light", family="sans", size=8, color="grey05")
fontRegGrey <- list(weight="light", family="sans", size=8, color="grey50")
fontDeemp <- list(weight="light", family="sans", size=8, color="grey50")
uiGridSpacing <- 1
return(environment())
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.