inst/shiny-apps/fdist/ui.R

In bcdudek/bcdstats: A collection of functions to support B. Dudek's APSY510/511 classes

library(shiny)

# Define UI for application that plots random distributions 
shinyUI(pageWithSidebar(
  
  # Application title
  headerPanel("Upper Tail probability of F Distribution"),
  
  # Sidebar with controls
  sidebarPanel(
    selectInput(
      "control", "Choose Type of Control:",
      c("Adjust Probability" = "prob", "Adjust X-axis quantile (F) value"="quant")
    ),
    numericInput("df1",
                 "Numerator Degrees of Freedom",
                 min=1,
                 max=100,
                 value=1),
    numericInput("df2",
                 "Denominator Degrees of Freedom",
                 min=1,
                 max=1000,
                 value=10),
    radioButtons("entrymode", "Use slider or direct text entry:",
                 c("Slider" = "slider",
                   "Number Entry Box (recommended for quantile control)" = "box")),  
    conditionalPanel(
      condition="input.control=='prob'",
      conditionalPanel(
        condition="input.entrymode=='slider'",
          sliderInput("pr", 
                      "Upper Tail Probability:", 
                      min = .00001,
                      max = .50, 
                      value = .050,
                      step=.001,sep="")),
      conditionalPanel(
        condition="input.entrymode=='box'",
          numericInput("pvalu", "Enter Probability:", 
                       value=.05,
                       min = 0, 
                       max = 1.00,
                       step=.001))),
    conditionalPanel(
      condition="input.control=='quant'",
        conditionalPanel(
          condition="input.entrymode=='slider'",
          sliderInput("quantile", 
                      "X-Axis Quantile (F) Value", 
                      min = 001,
                      max = 100, 
                      value = 4.00,
                      step=.001,sep="")),
        conditionalPanel(
          condition="input.entrymode=='box'",
          numericInput("quantileb", "Enter X Axis Quantile (F) Value:", 
                       value=4.00,
                       min = .001, 
                       max = 200,
                       step=.001))
      ),
    br(), 
    downloadButton('downloadPDF', label = "Download plot as .pdf file"),
    br(),
    downloadButton('downloadPNG', label = "Download plot as .png file")
  ),
  # Show a plot of the generated distribution
  mainPanel(
    tags$head(
      tags$style(HTML("
                      .shiny-output-error-validation {
                      font-size: 20px; color: blue;
                      }
                      "))
      ),
    tabsetPanel(
      tabPanel("Plot",
               plotOutput("distPlot")),
      tabPanel("About", 
               includeMarkdown('about.md'))
    ))
))