source(file.path(".", "modules/Plots/moduleMSnSetExplorer.R"), local = TRUE)$value
output$plotquantiTablesmall <- renderImage({
filename <- normalizePath(file.path('./images','desc_quantiData.png'))
list(src = filename,
width = .width,
height = .height)
}, deleteFile = FALSE)
callModule(module=MSnSetExplorer, 'msnsetExplorer',
data = reactive({rv$current.obj}))
output$plotquantiTablelarge <- renderUI({
MSnSetExplorerUI(ns('msnsetExplorer'))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.