R/ui_home.R

In CompEpigen/FactorViz: Visualization app for methylome decomposition experiments

# This script contains the code related to Home tab

home_tab <- function() {
  tabPanel(
    title = "Home",
    id = "home",
    sidebarPanel(
      width = 3,
      conditionalPanel('!input.multiplepath',
      shinyDirButton("dir", label = "Choose Directory", "Upload"),
      tags$h5(""),
      tags$strong("OR"),
      tags$h5(""),
      textInput("text_dir", label="Path", value=PATH$BASE_PATH),
      tags$strong("Note:"),
      tags$br(),
      tags$code("If both path (as text input) and directory (choosen via the file manager) is provided only the path will be consdiered"),
      tags$h5("")
      ),
      checkboxInput("multiplepath", "Non DeComp-Pipeline Input", value=MULTIFILE),
      conditionalPanel('input.multiplepath',
      uiOutput("multipleFiles")
      ),
      actionButton("load", "Load Datasets")
    ),
    mainPanel(
      h4("Files in the directory"),
      verbatimTextOutput("files"),
      uiOutput("AnalysisRunDescriptionHeader"),
      tableOutput('AnalysisRunParameterTable')
    )
  )
}