R/ui.R

In shinyTANDEM: Provides a GUI for rTANDEM

### This file contains the shiny UI elements.
require(rTANDEM)

navSection <- function(inputId) {      # the navbar is "section", inputId="section"
  tagList(
    singleton(tags$head(tags$script(src = "/www/js/navbar.js"))),
    tags$script(src="/www/js/tooltips.js"),
    tags$script(src="/www/js/bootstrap-fileupload.min.js"),
    tags$link(rel="stylesheet", type="text/css",
              href="/www/css/bootstrap-fileupload.min.css"),
    includeHTML(
      system.file("extdata/www/navbar.html",
                  package="shinyTANDEM")
    )
  )
}

shinyUI <- function() {
  basicPage(
    progressInit(),     
    navSection("section"), ### navbar
      ## Refer all UI components to pagedUI.R with function calls.
      conditionalPanel("input.section == 'home'", home.ui() ),
      conditionalPanel("input.section == 'analysis'", analysis.ui() ),
      conditionalPanel("input.section == 'param'", param.ui() ),
      conditionalPanel("input.section == 'launch'", launch.ui() ),
      conditionalPanel("input.section == 'convert'", convert.ui() ),
      conditionalPanel("input.section == 'load'", load.ui() ),
      conditionalPanel("input.section == 'overview'", overview.ui() ),
      conditionalPanel("input.section == 'stats'", stats.ui() ),
      conditionalPanel("input.section == 'prots'", prots.ui() ),
      conditionalPanel("input.section == 'peps'", peps.ui() ),
      conditionalPanel("input.section == 'external'", external.ui() ),
      conditionalPanel("input.section == 'biomart'", biomart.ui() ),
      conditionalPanel("input.section == 'gominer'", gominer.ui() )
  ) # /basicPage
} # /shinyUI