geposanui/ui.R

library(DT)
library(shiny)

ui <- fluidPage(
    titlePanel("TPE-OLD candidates"),
    column(
        width = 3,
        wellPanel(
            h3("Filter criteria"),
            selectInput(
                "species",
                "Species to include",
                choices = list(
                    "All qualified" = "all",
                    "Replicatively aging" = "replicative"
                )
            ),
            sliderInput(
                "range",
                "Gene position (Mbp)",
                min = 0,
                max = 50,
                value = c(0, 15),
                step = 0.1
            ),
            sliderInput(
                "length",
                "Minimum cluster size",
                min = 0,
                max = 50,
                value = c(0, 15),
                step = 0.1
            )
        ),
        wellPanel(
            h3("Ranking"),
            sliderInput(
                "clustering",
                "Size of largest cluster",
                post = "%",
                min = 0,
                max = 100,
                step = 1,
                value = 100
            ),
            sliderInput(
                "correlation",
                "Correlation with known genes",
                post = "%",
                min = 0,
                max = 100,
                step = 1,
                value = 100
            )
        ),
        wellPanel(
            h3("Results"),
            textOutput("synposis"),
            div(
                style = "overflow-x: auto; overflow-y: auto; margin-top: 16px",
                DTOutput("genes")
            )
        )
    ),
    column(
        width = 8,
        wellPanel(
            h3("Gene positions"),
            p("This plot shows the selected genes' distance to the telomeres \
               across species. It visualizes how certain genes have \
               evolutionary conserved positions."),
            div(
                style = "overflow-x: auto",
                div(
                    style = "min-width: 1400px",
                    plotOutput(
                        "scatter",
                        width = "100%",
                        height = "600px"
                    )
                )
            )
        )
    )
)