source(file.path(".", "modules/Plots/moduleGroupMVPlots.R"), local = TRUE)$value
callModule(missingValuesPlots, "MVPlots_DS", data = reactive({dataIn()}))
output$plotmvsmall <- renderImage({
filename <- normalizePath(file.path('./images','desc_mv.png'))
list(src = filename,
width = .width,
height = .height)
}, deleteFile = FALSE)
output$plotmvlarge <- renderUI({
tagList(
helpText("These barplots display the distribution of missing values in the dataset."),
missingValuesPlotsUI(ns("MVPlots_DS"))
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.