ui.R 1.72 KB
Newer Older
dmattek's avatar
dmattek committed
1 2 3 4 5 6 7 8

# This is the user-interface definition of a Shiny web application.
# You can find out more about building applications with Shiny here:
#
# http://shiny.rstudio.com
#

library(shiny)
dmattek's avatar
dmattek committed
9
library(shinyjs) #http://deanattali.com/shinyjs/
dmattek's avatar
dmattek committed
10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54
library(plotly)

shinyUI(fluidPage(
  useShinyjs(), # Include shinyjs
  
  # Application title
  title = "Timecourse Inspector",
  
  fluidRow(
    column(3,
           h4("Load data files"),
           #Selector for file upload
           fileInput(
             'inFileNucLoad',
             'Choose CSV file with measurement data, e.g. tCoursesSelected.csv',
             accept = c('text/csv', 'text/comma-separated-values,text/plain')
           ),
           
           fileInput(
             'inFileStimLoad',
             'Choose CSV file with stimulation times, e.g. stimT.csv',
             accept = c('text/csv', 'text/comma-separated-values,text/plain')
           ),
           
           actionButton("butReset", "Reset file input"),
           actionButton('butDataGen', 'Generate artificial dataset'),
           actionButton('butGo', 'Go!')),
    
    column(4, offset = 1,
           uiOutput('varSelSite'),
           uiOutput('varSelTrackLabel'),
           uiOutput('varSelTime'),
           uiOutput('varSelMeas1'),
           uiOutput('varSelRatio'),
           uiOutput('varSelMeas2')),
  
    column(2, offset = 1,
           numericInput('inFacetNcol', 'No. of plot columns:', value = 4, min = 1, width = '150px', step = 1),
           numericInput('inPlotHeight', 'Plot Height [px]:', value = 400, min = 100, width = '150px', step = 50),
           numericInput('inPlotWidth', 'Plot Width [%]:', value = 100, min = 10, max = 100, width = '150px', step = 10))
  ),
  br(),
  uiOutput('outPlot')
))