sufc_dashboard/ui.R

In AndrewFerris/sufc1863:

#
# This is the user-interface definition of a Shiny web application. You can
# run the application by clicking 'Run App' above.
#
# Find out more about building applications with Shiny here:
#
#    http://shiny.rstudio.com/
#

# Rely on the 'WorldPhones' dataset in the datasets
# package (which generally comes preloaded).
library(ggplot2, quietly = TRUE)
library(dplyr, quietly = TRUE)
library(rsconnect, quietly = TRUE)
player_file <- read.csv("player_table_flat_file.csv")

# Use a fluid Bootstrap layout
navbarPage("Shute Shield Analytics Dashboard",
           tabPanel("Competition Analysis",
                    # Generate a row with a sidebar
                    sidebarLayout(

                      # Define the sidebar with one input
                      sidebarPanel(
                        selectInput("statistic", "Statistic:",
                                    choices=colnames(player_file)[6:13]),
                        hr(),
                        helpText("Data taken from the 2017 1st Grade Shute Shield competition.")
                      ),
                      # Create a spot for the barplot
                      mainPanel(
                        plotOutput("toptwenty")
                      )
                    )
                    ),

           tabPanel("Team Analysis",
                    # Generate a row with a sidebar
                    sidebarLayout(

                      # Define the sidebar with one input
                      sidebarPanel(
                        selectInput("team", "Team:",
                                    choices=levels(player_file$Team)),
                        hr(),
                        helpText("Data taken from the 2017 1st Grade Shute Shield competition.")
                        ),
                      # Create a spot for the barplot
                      mainPanel(
                        plotOutput("tacklePlot")
                        )
                      )
                    ),

           tabPanel("Player Performance")
)