ui.R

################################# UI  ##########################################

# Set up Environment -----------------------------------------------------------

library(shiny)
library(markdown)
# Start ui function ------------------------------------------------------------

shinyUI(fluidPage(

  # Application title
  img(src = "logo.png", height = 102, width = 102),
  titlePanel("CIS Progress Monitoring Import Generator"),

  # Sidebar with a slider input for number of bins
  sidebarLayout(
    sidebarPanel(
      # caselist upload 
      fileInput('caselist', 'Upload Caselist File',
                accept = c("xlsx", '.xlsx')),
      # select dynamic schools
      uiOutput("choose_school"),
      
      # select date for quarter 
      dateInput('date', 'Select End Date for Quarter'),
      
      # select quarter
      selectInput(
        'quarter', 'Select Quarter to Generate Import File For',
        choices = c('1', '2', '3', '4')
        ),
      
      # select school year
      selectInput(
        'year', 'Select School Year to Generate Import File For',
        choices = c('2018/2019 SY', '2019/2020 SY')
      ),
      
      # download file
      downloadButton(
        'download_import_template', 
        'Download the Import Template for Selected School'
        )
      
    ),

    # Show a plot of the generated distribution
    mainPanel(
      includeMarkdown("md/instructions.md")
      )
  )
))