inst/shiny-deprecated/bfabric_rawDiag/ui.R

In fgcz/bfabricShiny: A Module for Bridging B-Fabric and R using REST

#
# This is the user-interface definition of a Shiny web application. You can
# run the application by clicking 'Run App' above.
#
# Find out more about building applications with Shiny here:
# 
#    http://shiny.rstudio.com/
#

library(shiny)

INPUTTYPES <- c(
  "filesystem" = "filesystem",
  "bfabric" = "bfabric")
if (!require("bfabricShiny")){
  message("running without bfabricShiny")
  INPUTTYPES <- c("package" = "package",
                  "filesystem" = "filesystem")
}

# Define UI for application that draws a histogram
shinyUI(fluidPage(
  
  # Application title
  #titlePanel(paste("rawDiag - Diagnostic Plots for Mass Spectrometry Data", "version", packageVersion('rawDiag'))),
  
  # Sidebar with a slider input for number of bins 
  sidebarLayout(
    sidebarPanel( 
      
      img(src='octopussy.png ', align = "right", width = '150px'),
      radioButtons("source", "Type of data source:",
                   INPUTTYPES),
      br(),
      
      h3("Data Source"),
      htmlOutput("sourceFilesystem"),
      htmlOutput("sourcePackage"),
      htmlOutput("sourceBfabric"),
      hr(),
      htmlOutput("ReaderParameter"),
      htmlOutput("XICParameter"),
      h3("Graphics Parameter"),
      sliderInput("graphicsheight", "graphicsheight",
                  min = 480, max = 4096,
                  value = 900),
      sliderInput("hexbinsize", "hexbinsize", min = 1, max = 512, value = 80),
      radioButtons("plottype", "Type of diagnostic plot:",
                   c("overlay" = "overlay",
		     "trellis" = "trellis",
                     "violin" = "violin")),
      hr(),
      htmlOutput("ddownload"),
      hr(),
      htmlOutput("rawDataStatus")
    ),
    
    # Show a plot of the generated distribution
    mainPanel(
      tagList(
        htmlOutput("tabs"))
    )
  )
))