diff --git a/components/board.upload/R/upload_ui.R b/components/board.upload/R/upload_ui.R index 4ce2297b9..da937c178 100644 --- a/components/board.upload/R/upload_ui.R +++ b/components/board.upload/R/upload_ui.R @@ -6,109 +6,6 @@ UploadUI <- function(id) { ns <- shiny::NS(id) ## namespace - - upload_panel <- wizardR::wizard_step( - step_title = "Upload", - bslib::layout_columns( - col_widths = 12, - # height = "calc(100vh - 340px)", #TODO this is a hack, should be fixed - bslib::layout_columns( - col_widths = c(4, 8), - bslib::card( - style = "background-color: #f7fafd;", - shiny::selectInput( - ns("selected_organism"), - h4("1. Select organism:", class='mb-0'), - ## restrict to ensembl species, as we are validating them in the first place - choices = playbase::SPECIES_TABLE$species_name[which(playbase::SPECIES_TABLE$mart == "ensembl")], - selected = NULL, - multiple = FALSE, - width = "90%" - ), -## shiny::br(), - div( - style = 'display: none', - fileInput2( - ns("upload_files"), - shiny::h4("Choose files", class='mb-0'), - multiple = TRUE, - buttonClass = "btn-primary", - accept = c(".csv", ".pgx") - ) - ), - shiny::h4("2. Choose data:", class='mt-2'), - div( - style = "margin-left: 0px; margin-right: auto;", - shiny::actionButton( - ns("upload_files_btn"), - width = 'auto', - icon = icon("table"), - label = "Upload files", - class = "btn-primary", - style = "margin-left: 0px;" - ), - shiny::actionButton( - ns("load_example"), - width = 'auto', - icon = icon("table"), - label = "Use example data", - class = "btn-outline-info", - style = "margin-left: 0px;" - ) - ) - ), - bslib::card( - shiny::h4("How to upload your files."), - shiny::uiOutput(ns("upload_info"), class='mt-3 mb-1'), - shiny::div( - ##style = "margin-top: 10px; position: absolute; bottom: 47px;", - style = "margin-top: 25px;", - shiny::downloadButton( - ns("downloadExampleData"), - width = "200px", - icon = icon("download"), - label = "Download example data", - class = "btn-outline-primary", - style = "margin-right: 20px;" - ) - ) - ) - ), - bslib::layout_columns( - col_widths = c(4, 4, 4), - upload_plot_countstats_ui( - id = ns("countStats"), - title = "Count Stats", - info.text = "Information about the uploaded counts.", - caption = "Information about the uploaded counts.", - height = c("auto", "100%"), - width = c("auto", "100%") - ), - upload_plot_phenostats_ui( - id = ns("phenoStats"), - title = "Pheno Stats", - info.text = "Information about the uploaded samples", - caption = "Information about the uploaded samples.", - height = c("auto", "100%"), - width = c("auto", "100%") - ), - upload_plot_contraststats_ui( - id = ns("contrastStats"), - title = "Comparison Stats", - info.text = "Informyation about the uploaded comparisons", - caption = "Information about the uploaded comparisons.", - height = c("auto", "100%"), - width = c("auto", "100%") - ) - ), - bs_alert("In this panel, you can upload your data to the platform. The platform - requires 3 data files as explained below: a data file containing - counts/expression (counts.csv), a sample information file (samples.csv) - and a file specifying the statistical comparisons (comparisons.csv). - NB Users can now create comparisons from the platform itself, so the - comparisons.csv file is optional.") - ) - ) counts_ui <- wizardR::wizard_step( step_title = "Counts", @@ -211,7 +108,6 @@ UploadUI <- function(id) { height = 80, modal = TRUE, style = "progress", - upload_panel, counts_ui, samples_ui, contrasts_ui,