ubigen/R/ui.R

#' Function for creating the main user interface.
#' @noRd
ui <- function() {
    navbarPage(
        theme = bslib::bs_theme(
            version = 5,
            bootswatch = "united",
            primary = "#7d19bf"
        ),
        title = "Ubigen",
        tabPanel(
            "Explore",
            sidebarLayout(
                sidebarPanel(
                    width = 3,
                    h3("Criteria"),
                    sliderInput(
                        "above_median",
                        "Expressed above median",
                        min = -1.0,
                        max = 1.0,
                        step = 0.01,
                        value = 1.0
                    ),
                    sliderInput(
                        "mean_expression",
                        "Mean expression",
                        min = -1.0,
                        max = 1.0,
                        step = 0.01,
                        value = 1.0
                    ),
                    sliderInput(
                        "sd_expression",
                        "Standard deviation",
                        min = -1.0,
                        max = 1.0,
                        step = 0.01,
                        value = -1.0
                    )
                ),
                mainPanel(
                    width = 9,
                    DT::dataTableOutput("ranked_data")
                )
            )
        ),
        tabPanel(
            title = "Data",
            DT::dataTableOutput("all_data")
        ),
        tabPanel(
            title = "Publication"
        )
    )
}