inst/shiny/rotresist1/ui.r

In ian-hastings/rotations: Simulating the Evolution of Insecticide Resistance under Rotations

#rotations/shiny/rotresist1/ui.r
#andy south 9/10/17

#original UI with development options

library(shiny)
library(markdown)

shinyUI(fluidPage( theme = "bootstrap_simplex.css",
#shinyUI(fixedPage( theme = "bootstrap_simplex.css",
 
  #can add CSS controls in here
  #http://shiny.rstudio.com/articles/css.html
  #http://www.w3schools.com/css/css_rwd_mediaqueries.asp
  tags$head(
    tags$style(HTML("

                    [class*='col-'] {
                        padding: 5px;
                        border: 1px;
                        position: relative;
                        min-height: 1px;
                    }

                    .container {
                      margin-right: 0;
                      margin-left: 0;
                      float: left;
                    }
                    .col-sm-1 {width: 8.33%; float: left;}
                    .col-sm-2 {width: 16.66%; float: left;}
                    .col-sm-3 {width: 25%; float: left;}
                    .col-sm-4 {width: 33.33%; float: left;}
                    .col-sm-5 {width: 41.66%; float: left;}
                    .col-sm-6 {width: 50%;  float: left; padding: 0px;} !to make more space for plots
                    .col-sm-7 {width: 58.33%; float: left;}
                    .col-sm-8 {width: 66.66%; float: left;}
                    .col-sm-9 {width: 75%; float: left;}
                    .col-sm-10 {width: 83.33%; float: left;}
                    .col-sm-11 {width: 91.66%; float: left;}
                    .col-sm-12 {width: 100%; float: left;}
                    
                    "))
    ),  
     
  title = "insecticide rotations effects on resistance",

  #navbarPage sets up navbar, title appears on left
  navbarPage("insecticide resistance evolution with rotations and sequences DEVELOPMENT VERSION", id="selectedTab",
           
           # tab UI
           tabPanel("UI", 
  
  h6("Warning! This is a research tool and not for making operational decisions.  Needs to be run on a widescreen. Modify inputs and compare 2 scenarios. Select About for outline."),  
  
  #fixedRow(
  fluidRow(
    #column(1),    
    column(6, plotOutput('plotA')),
    column(6, plotOutput('plotB'))
    #column(1)    
  ), 
  
  fluidRow(
    column(2, p()),
    column(2, actionButton('aButtonRunA', 'Run Scenario A')),
    #column(3, h6("(takes a few seconds)")),
    column(1, sliderInput("max_gen", "generations", val=150, min = 100, max = 500, step = 50, ticks=FALSE)),
    #column(1, p()),
    column(1, radioButtons("mort_or_freq", label = tags$strong("threshold :"),
                           choices = list("mortality" = 'mort', "frequency" = 'freq'), 
                           selected = 'mort')), 
    column(1, sliderInput("threshold", "threshold :", val=0.9, min = 0.1, max = 1, step = 0.1, ticks=FALSE)),
    column(1, checkboxInput("logy", "log y axis", FALSE)),
    #column(1, p()),
    column(2, actionButton('aButtonRunB', 'Run Scenario B')),
    column(2, p())
  ), 
  
  hr(),
  
  fluidRow(
    column(1,
           h5("scenario "),
           h2("A"),
           hr(),
           h2("B")
    ),
    column(1, offset = 0,
           h5("n. insecticides"),
           sliderInput("n_A", NULL, val=3, min = 2, max = 5, step = 1, ticks=FALSE),
           hr(), #hr(),hr(),
           sliderInput("n_B", NULL, val=3, min = 2, max = 5, step = 1, ticks=FALSE),
           hr()
    ), 
    # moved up to one slider for both scenarios
    # column(1, offset = 0,
    #        h5("generations"),
    #        sliderInput("max_gen_A", NULL, val=150, min = 100, max = 500, step = 50, ticks=FALSE),
    #        hr(), #hr(),hr(),
    #        sliderInput("max_gen_B", NULL, val=150, min = 100, max = 500, step = 50, ticks=FALSE),
    #        hr()
    # ),  
    column(1, offset = 0,
           h5(tags$strong("rotation interval*")),
           sliderInput("rot_interval_A", NULL, val=10, min = 0, max = 100, step = 10, ticks=FALSE),
           hr(), #hr(),hr(),
           sliderInput("rot_interval_B", NULL, val=0, min = 0, max = 100, step = 10, ticks=FALSE),
           hr()
    ),     
    column(1,
           h5("start freq."),
           sliderInput("frequency_A", NULL, val=0.0001, min = 0.0001, max = 0.1, step = 0.001, ticks=FALSE),
           hr(),
           sliderInput("frequency_B", NULL, val=0.0001, min = 0.0001, max = 0.1, step = 0.001, ticks=FALSE),
           hr()          
    ),
    column(1, offset = 0,
           h5("exposure"),
           sliderInput("exposure_A", NULL, val=0.5, min = 0, max = 1, step = 0.1, ticks=FALSE),
           hr(),#hr(),hr(),
           sliderInput("exposure_B", NULL, val=0.5, min = 0, max = 1, step = 0.1, ticks=FALSE),
           hr()
    ),    
    column(1, offset = 0,
           h4(tags$strong("effectiveness")),
           sliderInput("effectiveness_A", NULL, val=0.95, min = 0.5, max = 1, step = 0.05, ticks=FALSE),
           hr(),
           sliderInput("effectiveness_B", NULL, val=0.95, min = 0.5, max = 1, step = 0.05, ticks=FALSE),
           hr()           
    ),
    column(1, offset = 0,
           h5("R. restoration"),
           sliderInput("advantage_A", NULL, val=0.5, min = 0, max = 1, step = 0.1, ticks=FALSE),
           hr(),
           sliderInput("advantage_B", NULL, val=0.5, min = 0, max = 1, step = 0.1, ticks=FALSE),
           hr()          
    ),
    column(1, offset = 0,
           h5("dom., selection"),
           sliderInput("dom_sel_A", NULL, val=0.5, min = 0, max = 1, step = 0.1, ticks=FALSE),
           hr(),
           sliderInput("dom_sel_B", NULL, val=0.5, min = 0, max = 1, step = 0.1, ticks=FALSE),
           hr()
    ), 
    column(1, offset = 0,
           h5("cost"),
           sliderInput("cost_A", NULL, val=0.01, min = 0, max = 0.2, step = 0.01, ticks=FALSE),
           hr(),
           sliderInput("cost_B", NULL, val=0.01, min = 0, max = 0.2, step = 0.01, ticks=FALSE),
           hr()          
    ),
    column(1, offset = 0,
           h5("dominance, cost"),
           sliderInput("dom_cos_A", NULL, val=0.5, min = 0, max = 1, step = 0.1, ticks=FALSE),
           hr(),
           sliderInput("dom_cos_B", NULL, val=0.5, min = 0, max = 1, step = 0.1, ticks=FALSE),
           hr()
    ),
    column(1, offset = 0,
           h5("coverage"),
           sliderInput("coverage_A", NULL, val=0.8, min = 0.01, max = 1, step = 0.1, ticks=FALSE),
           hr(),#hr(),hr(),
           sliderInput("coverage_B", NULL, val=0.8, min = 0.01, max = 1, step = 0.1, ticks=FALSE),
           hr()
    ),     
    column(1, offset = 0,
           h5("migration"),
           #migration can go up to 1, in practice 0.3 gives nearly complete mixing
           sliderInput("migration_A", NULL, val=0.01, min = 0, max = 0.3, step = 0.01, ticks=FALSE),
           hr(),#hr(),hr(),
           sliderInput("migration_B", NULL, val=0.01, min = 0, max = 0.3, step = 0.01, ticks=FALSE),
           hr()
    )  
  ), #end fluid row

  fluidRow(
    column(1, NULL),
    column(6, h6("* set rotation interval to 0 to use insecticides until resistance threshold reached (sequence, rotate-when-resistant)")),
    column(1, h6("Advanced options :")),
    column(1, checkboxInput("no_r_below_start", "no_r_below_start", FALSE)), 
    column(1, NULL),
    column(1, sliderInput("min_rwr_interval", "min rwr interval", val=0, min = 0, max = 20, step = 1, ticks=FALSE))
           
  ) #end fluid row

           ), # end tabPanel("UI")
  # tab "About" ---------------------------
  tabPanel("About", includeMarkdown("about.md"))
  
  ) # end navbarPage  
))