Shiny App Development

library(shiny)

ui <- fluidPage(
  withMathJax(),
  tags$div(HTML("<script type='text/x-mathjax-config'>
            MathJax.Hub.Config({
            tex2jax: {inlineMath: [['$','$'], ['\\(','\\)']]}
            });
            </script>")),
  br(), br(),
  wellPanel(style = "background-color:#acdfe6;",
            titlePanel(h2("Exponential Distribution of Random Variables", align = "center",
                          style = "color:darkred; font-family:verdana; 
                      font-variant: small-caps; font-weight: bold;"))
  ),
  sidebarPanel(style = "background-color:#acdfe6;",
               tags$div( h4("User Input Panel", align = "center",
                          style = "color:darkred; font-family:verdana; 
                      font-variant: small-caps; font-weight: bold;")),
               br(),
               sliderInput("obs",
                           "Number of observations (n)",
                           min = 1,
                           max = 1000,
                           value = 100,
                           animate = list(interval=550, loop=T)),
               sliderInput("rate",
                           "Rate parameter (lambda)",
                           min = 0.1,
                           max = 5,
                           value = 1,
                           step = 0.1),
               br()
  ),
  mainPanel(
    style = "background-color:lightgray; text-align: center;",
    plotOutput("histPlot", height = "300px"),
    plotOutput("densityPlot", height = "300px")
  )
)

server <- function(input, output) {
  output$histPlot <- renderPlot({
    set.seed(3)
    dist <- rexp(input$obs, rate = input$rate)
    hist(dist,
         col = "darkgreen",
         main = "Histogram of Exponentially Distributed Random Variables",
         xlab = "Values",
         ylab = "Frequency")
  })

  output$densityPlot <- renderPlot({
    set.seed(3)
    dist <- rexp(input$obs, rate = input$rate)
    plot(density(dist),
         main = "Density Plot of Exponentially Distributed Random Variables",
         xlab = "Values",
         ylab = "Density",
         col = "red")
    lines(density(dist), col = "red", lwd = 2)
  })
}

shinyApp(ui = ui, server = server)

Shiny applications not supported in static R Markdown documents