inst/apps/stress_strength/ui.R

ui = fluidPage(theme = add_theme(getShinyOption('theme')), 
               add_css(),

sidebarLayout(
   sidebarPanel(
      sliderInput("mean", 
                  label = "Applied Stress:",
                  min = 5, 
                  max = 16, 
                  value = 5, 
                  step = 1, 
                  animate=TRUE)),
    
    mainPanel(plotOutput("first", height = "300px"))))
Auburngrads/teachingApps documentation built on June 17, 2020, 4:57 a.m.