ui.R

dashboardPage(
  dashboardHeader(title = "NHL Face/offs"),
  dashboardSidebar(
    sidebarMenu(
      menuItem(text = "Player Data",
               startExpanded = TRUE,
               menuSubItem(text = "Data", tabName = "playerData"),
               menuSubItem(text = "Running Average", tabName = "playerPlot"),
               menuSubItem(text = "Historical H2H", tabName = "h2hData")
      ),
      menuItem(text = "Team Data",
               startExpanded = TRUE,
               menuSubItem(text = "Team Comparison", tabName = "teamComparison"),
               menuSubItem(text = "Opportunity Breakdown", tabName = "opportunityBreakdown")
      ),
      menuItem(text = "Calculate H2H Line", tabName = "headToHead"),
      selectInput(inputId = "playerSelect", label = "Select a player:", choices = playerChoices, selected = "Auston Matthews"),
      selectInput(inputId = "opponentSelect", label = "Select an opponent:", choices = playerChoices, selected = "Mika Zibanejad"),
      selectInput("teamSelect", label = "Select which team to view:", choices = teamChoices, selected = "Anaheim Ducks"),
      #show the last 2 years as default
      dateRangeInput("dateRange", "Date Range:", start = Sys.Date()-730, end = Sys.Date()),
      #checkboxGroupInput(inputId = "checkbox", label = "Season Type", choices = c("REG", "POST"), selected = c("REG", "POST")),
      numericInput(inputId = "runningAverageValue", label = "Running Average Value:", value = "30")
    )
  ),
  dashboardBody(
    tabItems(
      tabItem(tabName = "playerData",
              DTOutput(outputId = "careerDataPlayer"),
              DTOutput(outputId = "yearlyDataPlayer")
      ),
      tabItem(tabName = "playerPlot",
              plotOutput("runningAveragePlot")
      ),
      tabItem(tabName = "h2hData",
              DTOutput(outputId = "h2hData")
      ),
      tabItem(tabName = "teamComparison",
              DTOutput("teamComparisonTBL")),
      tabItem(tabName = "opportunityBreakdown",
              plotOutput("opportunityBreakdownBoxPlot"),
              DTOutput("opportunityBreakdownTable"),
              DTOutput("opportunityBreakdown"))
    )
  )
)