fixed version title
fixed version title

OOW/dispersion-calculator,OOW/dispersion-calculator
shinyUI(
  pageWithSidebar(
    headerPanel('DispersionCalculator v0.6'),
    sidebarPanel(
      wellPanel(
        fileInput('dye_input', strong('Dye input (*.asc)')),
        fileInput('dxdy_input', strong('Dxdy input (*.inp)')),
        fileInput('depth_input', strong('Depth input (*.asc)'))
      ),
      wellPanel(
        radioButtons("depth_file_type", label = "Choose Depth File Type",
                     choices = list("Older (3 cloumns)" = 1, "Newer (25 columns wrapped)" = 2), 
                     selected = 2),
        datetimeInput('start_datetime', strong('Start time')),
        numericInput('r_yr', strong('Timestamp reference year (YYYY)'), value=2010),
        numericInput('timestep', strong('timestep (minutes)'), value=15),
        numericInput('duration', strong('Duration (hours)'), value=2),
        numericInput('x.idx.first.cell', strong('First idx x Cell'), value=1), #237 for past
        numericInput('nlayers', strong('Number z layer'), value=5),
        actionButton('submit', strong('Submit'))
      ),
      conditionalPanel(condition="$('#second_moment_timeseries').hasClass('recalculating')",
        id='progressIndicator',
        wellPanel(
            strong("Calculating, this may take a moment ...")
        )
      ),
      wellPanel(
        downloadButton('download_1', 'Download second-moment plot'), 
        downloadButton('download_2', 'Download dye mass inventory plot')
      ),
      wellPanel(
      downloadButton(outputId='download_data', label='Download Results')
      )
    ),
    mainPanel(plotOutput('second_moment_timeseries', height='800px'),
              plotOutput('dye_mass_timeseries', height='800px'))
  )
)

# 2012-8-5 9:15

shinyUI(
  pageWithSidebar(
    headerPanel('DispersionCalculator v0.5'),
    sidebarPanel(
      wellPanel(
        fileInput('dye_input', strong('Dye input (*.asc)')),
        fileInput('dxdy_input', strong('Dxdy input (*.inp)')),
        fileInput('depth_input', strong('Depth input (*.asc)'))
      ),
      wellPanel(
        radioButtons("depth_file_type", label = "Choose Depth File Type",
                     choices = list("Older (3 cloumns)" = 1, "Newer (25 columns wrapped)" = 2), 
                     selected = 2),
        datetimeInput('start_datetime', strong('Start time')),
        numericInput('r_yr', strong('Timestamp reference year (YYYY)'), value=2010),
        numericInput('timestep', strong('timestep (minutes)'), value=15),
        numericInput('duration', strong('Duration (hours)'), value=2),
        numericInput('x.idx.first.cell', strong('First idx x Cell'), value=1), #237 for past
        numericInput('nlayers', strong('Number z layer'), value=5),
        actionButton('submit', strong('Submit'))
      ),
      conditionalPanel(condition="$('#second_moment_timeseries').hasClass('recalculating')",
        id='progressIndicator',
        wellPanel(
            strong("Calculating, this may take a moment ...")
        )
      ),
      wellPanel(
        downloadButton('download_1', 'Download second-moment plot'), 
        downloadButton('download_2', 'Download dye mass inventory plot')
      ),
      wellPanel(
      downloadButton(outputId='download_data', label='Download Results')
      )
    ),
    mainPanel(plotOutput('second_moment_timeseries', height='800px'),
              plotOutput('dye_mass_timeseries', height='800px'))
  )
)

# 2012-8-5 9:15
