inst/teachingApps/templates/fluidUI.R

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

library(teachingApps)

ui = fluidPage(theme = shinythemes::shinytheme(theme = getShinyOption("theme")),
               tags$head(includeCSS(system.file('css', 'my-shiny.css', package = 'teachingApps'))),
               tags$footer(getShinyOption('sign')),
               
sidebarLayout(
  sidebarPanel(
    selectInput("input1", 
                label = h4("Distribution:"),
                choices = c("Weibull",
                            "Exponential",
                            "Gamma",
                            "Normal",
                            "Lognormal",
                            "Uniform"),
                selected = "Uniform"),
  
    sliderInput("input2", 
                label = h4("Number of Bins:"),
                min = 10, 
                max = 50, 
                value = 10, 
                step = 10),
  
    sliderInput("input3", 
                label = h4("Sample Size:"),
                min = 3, 
                max = 30, 
                value = 3, 
                step = 3,
                animate = T)), 
  
    mainPanel(plotOutput("output1", height = "600px"  ))))