Add options to configure default gene sets

This commit is contained in:
Elias Projahn 2022-05-19 16:24:23 +02:00
parent 22f5e86625
commit 74d7865389
9 changed files with 391 additions and 370 deletions

7
R/ui.R
View file

@ -1,6 +1,9 @@
#' Generate the main UI for the application.
#'
#' @param options Global options for the application.
#'
#' @noRd
ui <- function() {
ui <- function(options) {
div(
shinyjs::useShinyjs(),
rclipboard::rclipboardSetup(),
@ -15,7 +18,7 @@ ui <- function() {
selected = "Results",
tabPanel(
"Input data",
input_page_ui("input_page")
input_page_ui("input_page", options)
),
tabPanel(
"Results",