source(file.path(".", "modules/Plots/modulePCAPlots.R"), local = TRUE)$value

output$plotpcasmall <- renderImage(
    {
        filename <- normalizePath(file.path("./images", "desc_pca.png"))
        list(
            src = filename,
            width = .width,
            height = .height
        )
    },
    deleteFile = FALSE
)



# callModule(module=pcaPlots, 'pcaPlots', data=reactive({dataIn()}))
#
# output$plotpcalarge <- renderUI({
#   pcaPlotsUI(ns('pcaPlots'))
# })
