You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
30 lines
793 B
30 lines
793 B
#
|
|
# 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)
|
|
|