geposanui/R/ui.R

#' Generate the main UI for the application.
#'
#' @param options Global options for the application.
#'
#' @noRd
ui <- function(options) {
  div(
    shinyjs::useShinyjs(),
    rclipboard::rclipboardSetup(),
    navbarPage(
      id = "main_page",
      theme = bslib::bs_theme(
        version = 5,
        bootswatch = "united",
        primary = "#1964bf"
      ),
      title = options$title,
      selected = "Results",
      tabPanel(
        "Input data",
        input_page_ui("input_page", options)
      ),
      tabPanel(
        "Results",
        sidebarLayout(
          sidebarPanel(
            width = 3,
            methods_ui("methods"),
            filters_ui("filters")
          ),
          mainPanel(
            width = 9,
            tabsetPanel(
              type = "pills",
              tabPanel(
                title = "Overview",
                div(
                  style = "margin-top: 16px",
                  plotly::plotlyOutput(
                    "rank_plot",
                    width = "100%",
                    height = "600px"
                  )
                )
              ),
              tabPanel(
                title = "Methods & Distribution",
                div(
                  style = "margin-top: 16px",
                  plotly::plotlyOutput(
                    "rankings_plot",
                    width = "100%",
                    height = "600px"
                  )
                )
              ),
              tabPanel(
                title = "Comparison",
                div(
                  style = "margin-top: 16px",
                  htmlOutput("comparison_text"),
                  plotly::plotlyOutput(
                    "boxplot",
                    width = "100%",
                    height = "600px"
                  )
                )
              ),
              tabPanel(
                title = "Scores by position",
                div(
                  style = "margin-top: 16px",
                  selectInput(
                    "positions_plot_chromosome_name",
                    label = NULL,
                    choices = c(
                      list("All chromosomes" = "all"),
                      chromosome_choices()
                    )
                  ),
                  plotly::plotlyOutput(
                    "positions_plot",
                    width = "100%",
                    height = "600px"
                  )
                )
              ),
              tabPanel(
                title = "Detailed results",
                results_ui("results")
              ),
              tabPanel(
                title = "g:Profiler",
                div(
                  style = "margin-top: 16px",
                  plotly::plotlyOutput("gost_plot"),
                ),
                div(
                  style = "margin-top: 16px",
                  DT::DTOutput("gost_details")
                )
              ),
              tabPanel(
                title = "DisGeNET",
                div(
                  style = "margin-top: 16px",
                  DT::DTOutput("disgenet")
                )
              )
            )
          )
        )
      ),
      tabPanel(
        title = "Publication"
      )
    )
  )
}

#' Generate a named list for choosing chromosomes.
#' @noRd
chromosome_choices <- function() {
  choices <- purrr::lmap(
    unique(geposan::genes$chromosome),
    function(name) {
      choice <- list(name)

      names(choice) <- paste0(
        "Chromosome ",
        name
      )

      choice
    }
  )

  choices[order(suppressWarnings(sapply(choices, as.integer)))]
}