remove unused component

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,