inst/apps/distribution_poisson_functions/ui.R

In teachingApps: Apps for Teaching Statistics, R Programming, and Shiny App Development

ui = fluidPage(theme = add_theme(getShinyOption('theme')), 
               add_css(),
               
sidebarLayout(
  sidebarPanel(width = 3, 
hr(), 
sliderInput("range.pois", 
            label = "Range",
            min = 0, 
            max = 50, 
            step = 1,
            value = c(0,10)),
hr(), 
sliderInput("lamb.pois", 
            label = "Lambda",
            min = .5, 
            max = 10, 
            step=.5, 
            value = .5,
            animate=TRUE)), 

mainPanel(width = 9, 
          tabsetPanel(type = "pills", 
          tabPanel("Distribution Function", 
                   metricsgraphicsOutput(height = "550px", "poisC")), 
          tabPanel("Mass",
                   metricsgraphicsOutput(height = "550px", "poisP")), 
          tabPanel("Survival", 
                   metricsgraphicsOutput(height = "550px", "poisR")), 
          tabPanel("Hazard", 
                   metricsgraphicsOutput(height = "550px", "poish")), 
          tabPanel("Cumulative Hazard", 
                   metricsgraphicsOutput(height = "550px", "poisH")),
          tabPanel("Quantile", 
                   metricsgraphicsOutput(height = "550px", "poisQ"))))))