#
# This is a Shiny web application. You can run the application by clicking
# the 'Run App' button above.
#
# Developed by LaNubia

library(shiny)
library(shinydashboard)

source("uihelp.R")

# Define UI for application that draws a histogram
ui <- dashboardPage(
  dashboardHeader(title = "Opportunity Report NL"),
  dashboardSidebar(
    filters.sidebar
  ),
  dashboardBody(
      box(
        radioButtons("Period", "Select Period", choiceNames = c("Daily", "Weekly", "Monthly", "Quarterly", "Yearly"),
                     choiceValues = c("day", "week", "month", "quarter", "year"), selected = "week", inline=TRUE, width = "90%"),
        filters.panel, 
        width = 5)
  )
)

server <- function(input, output, session) {}

# Run the application 
shinyApp(ui = ui, server = server)