global.R

library(shiny)
library(shinydashboard)
library(DT)
library(readr)
library(dplyr)
library(ggplot2)
library(data.table)
library(runner)
library(zoo)

allData <- as.data.frame(read_csv("faceoffNeutral.csv"))
allData$playerDisplay <- paste(allData$player, " (" , allData$playerHand, ")", sep="")
# there might be some people who took faceoffs and only lost but we probably shouldn't care about them
playerChoices <- unique(allData$player)
playerChoices <- playerChoices[order(playerChoices)]
teamChoices <- unique(allData$playerTeam)
teamChoices <- teamChoices[order(teamChoices)]