
###### Module de gestion des interfaces pour les data Process   ######
moduleProcessUI <- function(id) {
    ns <- NS(id)

    if (!requireNamespace("shinyjs", quietly = TRUE)) {
        stop("Please install shinyTree: BiocManager::install('shinyjs')")
    }
    tagList(
        shinyjs::useShinyjs(),
        div(
            div(
                style = "align: center;display:inline-block;
                vertical-align: top;
           padding: 7px",
                actionButton(ns("rstBtn"), "reset",
                    class = PrevNextBtnClass,
                    style = "padding:4px; font-size:80%"
                )
            ),
            div(
                style = "align: center;display:inline-block;
                vertical-align: top;
           padding: 7px",
                shinyjs::hidden(actionButton(ns("prevBtn"),
                    "<<",
                    class = PrevNextBtnClass,
                    style = "padding:4px; font-size:80%"
                ))
            ),
            div(
                style = "align: center;display:inline-block;
                vertical-align: top;",
                uiOutput(ns("checkPanel"))
            ),
            div(
                style = "align: center;display:inline-block;
                vertical-align: top;
           padding: 7px",
                shinyjs::hidden(actionButton(ns("nextBtn"), ">>",
                    class = PrevNextBtnClass,
                    style = "padding:4px; font-size:80%"
                ))
            )
        ),
        hr(),
        uiOutput(ns("screens"))
    )
}
