inst/shinyApp/tabs/tab_upload/ui_upload.R

tab_upload <- tabItem(
  tabName = "upload",
  align = "center",
  
  #Upload files
  h1("Upload your files"),
  
  fluidPage(
    br(),
    #Upload metabolites
    column(
      width = 3,
      div(
        id = "upload_metabolites",
        br(),
        fileInput(
          inputId = "file_samples",
          label = "Choose your metabolic files:",
          multiple = FALSE,
          accept = c(
            "CSV",
            ".csv",
            "TSV",
            ".tsv",
            "TXT",
            ".txt",
            "ZIP",
            ".zip",
            "GZ",
            ".gz"
          )
        )
      ),
      #Upload phenotypes
      div(
        id = "upload_phenotypes",
        br(),
        fileInput(
          inputId = "file_phenotypes",
          label = "Choose your phenotype file (optional):",
          multiple = FALSE,
          accept = c(
            "CSV",
            ".csv",
            "TSV",
            ".tsv",
            "TXT",
            ".txt",
            "ZIP",
            ".zip",
            "GZ",
            ".gz"
          )
        )
      ),
      br(),
      #Example Synthetic Dataset
      h5(strong("Example dataset:")),
      div(
        actionButton('load_synth_data', 'Load Example dataset'),
      ),
      br(),
      div(
        shinySaveButton("downloadData", "Download Example dataset", "Save file as...", 
                        filetype = list(zip = ".zip"), filename = paste0("metabolic_predictors_example_dataset"),
                        viewtype = "icon"),
      ),
      br(),
    ),
    # Explanation
    column(
      width = 9,
      uiOutput("get_started"),
      br(),
    ),
    style = "position: center; border-radius: 20px; border: 2px solid #0088cc;'width:100px;'",
  ),
  HTML('<hr style="border-color: #0088cc;">'),
  #Tables with the column names found in the files
  fluidPage(
    h3(strong("Variables names recognised")),
    textOutput("required_met"),
    br(),
    column(
      width = 6,
      div(
        DT::dataTableOutput("found_met") %>% withSpinner()
      )
      ),
    column(
      width = 6,
      div(
        DT::dataTableOutput("found_phen") %>% withSpinner(),
      )
    ),
    ),
  helpText("Red= are required to continue; Orange= not found but optional; Green= found."),
  br(),
  #Table with the uploaded files
  div(id = "data tabs",
      tabsetPanel(
        #Metabolic measurements table
        tabPanel(
          "Metabolic measurements",
          HTML('<hr style="border-color: #0088cc;">'),
          DT::dataTableOutput("metabo_table") %>% withSpinner(),
          HTML('<hr style="border-color: #0088cc;">')
        ),
        #Phenotypes table
        tabPanel(
          "Phenotypic variables",
          HTML('<hr style="border-color: #0088cc;">'),
          DT::dataTableOutput("pheno_table") %>% withSpinner(),
          helpText("All the phenotypic variables available in your dataset"),
          HTML('<hr style="border-color: #0088cc;">')
        ),
        #Phenotypes binarized with our thresholds table
        tabPanel(
          "Binarized phenotypic variables",
          HTML('<hr style="border-color: #0088cc;">'),
          DT::dataTableOutput("bin_pheno_table") %>% withSpinner(),
          helpText("These is the set of the binarized phenotypic variables available in your dataset that we will use for the accuracy"),
          HTML('<hr style="border-color: #0088cc;">')
        )
        
      )
  )
)

Try the MiMIR package in your browser

Any scripts or data that you put into this service are public.

MiMIR documentation built on May 29, 2024, 5:38 a.m.