inst/shinyApps/econ/ui.R

In farfallawang/mosaicApps: A toolkit for teaching applied math and stats

library(shiny)


shinyUI(navbarPage(
  "Project Mosaic!",
  
  theme = shinytheme("cerulean"),
  
  tabPanel("Supply and Demand",
           column(8, 
                  tabsetPanel(
                    tabPanel("Graphical Output",
                             plotOutput("graph")
                    ),
                    tabPanel("Explanation"
                             ))
           ),
           
           column(4,
                  wellPanel( 
                    sliderInput("s10", label = h4("Supply when Qd equals 10"),
                                min = 1, max = 40, step = .1, value = 25),
                    
                    br(),
                    
                    sliderInput("s20", label = h4("Supply when Qd equals 20"),
                                min = 1, max = 60,step = .1, value = 50),
                    
                    br(),
                    
                    sliderInput("d10", label = h4("Demand when Qs equals 10"),
                                min = 1, max = 60,step = .1, value = 10),
                    br(), 
                    
                    sliderInput("d20", label = h4("Demand when Qs equals 20"),
                                min = 1, max = 40,step = .1, value = 10))
                  )
           )
  
  #tags$h4("An applet that shows relationship between supply and demand"),
  

  
  ))