inst/shiny-apps/shinyGEO/ui/ui.dashboard.sidebar.R

#################################################################
# Dashboard sidebar
#################################################################

gse.input = div(style = "display:inline-block; width: 75%",
            selectizeInput('GSE', label = "Accession Number", 
		choices = NULL, width = 275,
              options = list(placeholder = "Please enter a GSE #",
                          maxOptions = 100)
            )
)


gse.button = div(style = "display:inline-block; width: 11%",
                actionButton("submitButton", "Go!")
)


gse.platform=  conditionalPanel(condition = "output.sidebarDisplay=='PLATFORM'|output.sidebarDisplay=='ALL'",

                  div(style = "display:inline-block; width: 75%",
                        selectizeInput('platform', label = "Platform", choices = NULL, width = 275,
                                options = list(placeholder = "Please select a platform",
                                maxOptions = 10)
                        )
                  )
)

sidebar = dashboardSidebar(width = 350,
  includeCSS('www/ecsu.css'),
  includeScript('www/ecsu.js'),
        gse.input, gse.button, gse.platform,
        conditionalPanel(condition = "output.sidebarDisplay=='ALL'",
        sidebarMenu(id = "tabs",
                hr(),
        menuItem("New Analysis", tabName = "NewAnalysis", icon = icon("refresh")),
        hr(),
        menuItem("Home", tabName = "Home", icon = icon("home"), selected = TRUE),
        menuItem("Differential Expression Analysis",
                tabName = "DifferentialExpressionAnalysis", icon = icon("flask")),
        menuItem("Survival Analysis", tabName = "SurvivalAnalysis", icon = icon("life-ring")),
        menuItem("View Sample Data Table", tabName = "FullDataTable", icon = icon("table")),
        menuItem("Code", tabName = "Code", icon = icon("code")),
        menuItem("About", tabName = "About", icon = icon("info-circle"))
             )
      )
)
jasdumas/shinyGEO documentation built on June 4, 2022, 5:26 a.m.