inst/shiny/shinyMixSeqCompare1/ui.r

#resistance/shiny/shinyMixSeqCompare/ui.r
#andy south 6/7/15
#to view mixtures versus sequential in pre-run sensitivity analysis results

library(shiny)

# shinyUI(pageWithSidebar(
#   headerPanel("explore resistance sensitivity analysis results"),
#   sidebarPanel(
#     numericInput('scenarioNum','choose a scenario number', value=1, min=1, max=100, step=1 )
#  
#   ),
#   mainPanel(
#     #plotOutput('plotTest')
#     plotOutput('plot')
#     )
# ))

shinyUI(fluidPage(
  
  title = "Insecticide Mixture Explorer",

  
  fluidRow(
    column(2,
           numericInput('scenarioNum','choose a run no.', value=1, min=1, max=100, step=1 ),
           helpText('100 runs are stored, use arrows on right of box to step through them.'),
           helpText('In sequential use insecticide1 is used until resistance reaches 50%, it is then replaced by insecticide2.'),
           helpText('If the curve crossing the horizontal 50% line furthest to the right is solid that indicates resistance took longer to reach this level for the mixture.'),
           helpText('If instead the curve to the right is dashed, resistance arose slower with sequential use.')
           
    ),
    column(2, 
           helpText('input values for this run'),
           tableOutput('tableInputVals')
    ),
    column(5,
           plotOutput('plot')
    )
  )
))
AndySouth/resistance documentation built on Nov. 12, 2020, 3:39 a.m.