

NUM_PAGES_FILTERING <- 3




# moduleVolcanoplotUI <- function(id) {
#     ns <- NS(id)
#     tagList(
#         uiOutput(ns("nbSelectedItems")),
#         plotlyOutput(ns("volcanoPlot"), width = "600px", height = "600px"),
#         uiOutput(ns("quantiDT"))
#     )
# }
# 





########################################################
###### -------------------------------------------------
########################################################
# moduleDetQuantImpValuesUI <- function(id) {
#     ns <- NS(id)
#     tagList(
#         h5("The missing values will be imputed by the following values :"),
#         DT::dataTableOutput(ns("detQuantValues_DT"))
#     )
# }




missingValuesPlotsUI <- function(id) {
    ns <- NS(id)
    fluidRow(
        column(
            width = 4,
            plotlyOutput(ns("histo_MV")), height = "600px"
        ),
        column(
            width = 4,
            plotlyOutput(ns("histo_MV_per_lines"))
        ),
        column(
            width = 4,
            plotlyOutput(ns("histo_MV_per_lines_per_conditions"))
        )
    )
}


moduleDensityplotUI <- function(id) {
    ns <- NS(id)
    plotlyOutput(ns("Densityplot"))
}



moduleMVPlotsUI <- function(id) {
    ns <- NS(id)
    tagList(
        tags$div(
            tags$div(
                style = "display:inline-block; vertical-align: top; padding-right: 20px;",
                plotlyOutput(ns("plot_viewNAbyMean"), width = "600px")
            ),
            tags$div(
                style = "display:inline-block; vertical-align: top; padding-right: 20px;",
                tagList(
                    uiOutput(ns("WarnForImageNA")),
                    imageOutput(ns("plot_showImageNA"), width = "600px")
                )
            )
        )
    )
}



moduleDesignExampleUI <- function(id) {
    ns <- NS(id)
    tagList(
        rHandsontableOutput(ns("nlevelsExample"))
    )
}


moduleBoxplotUI <- function(id) {
    ns <- NS(id)
    tagList(
        plotlyOutput(ns("BoxPlot")),
        imageOutput(ns("viewViolinPlot")),
        selectInput(ns("choosePlot"),
            "Choose plot",
            choices = c(
                "violinplot" = "violinplot",
                "boxplot" = "boxplot"
            ),
            width = "100px"
        )
    )
}





moduleFilterStringbasedOptionsUI <- function(id) {
    ns <- NS(id)
    uiOutput(ns("FilterStringbasedOptions"))
}



# moduleInsertMarkdownUI <- function(id) {
#     ns <- NS(id)
#     uiOutput(ns("insertMD"))
# }
