shinyapp/team_metrics/global.R

In epijim/FootballData: Easy access to Football API data and quick toy summaries

library(shiny)
library(tidyverse)
library(glue)
library(shinydashboard)
library(dashboardthemes)
library(kableExtra)
library(FootballData)

# Get competitions
competitions <- football_get_competition(api_token = readLines("api_key")) %>%
  filter(plan == "TIER_ONE" &
           !country %in% c("World","Europe"))