R/clean-raw-data.R

Defines functions team_name_to_id

team_name_to_id <- function(x) {
  x <- toupper(x)
  dplyr::case_when(
    x == 'BALONCESTO SEVILLA' ~ 'SEV',
    x == 'BASKONIA' ~ 'BAS',
    x == 'CAI ZARAGOZA' ~ 'ZZA',
    x == 'DELTECO GBC' ~ 'GBC',
    x == 'DIVINA SEGUROS JOVENTUT' ~ 'JOV',
    x == 'DOMINION BILBAO BASKET' ~ 'BLB',
    x == 'FC BARCELONA LASSA' ~ 'BAR',
    x == 'FIATC JOVENTUT' ~ 'JOV',
    x == 'GIPUZKOA BASKET' ~ 'GBC',
    x == 'HERBALIFE GRAN CANARIA' ~ 'CLA',
    x == 'IBEROSTAR TENERIFE' ~ 'CAN',
    x == 'ICL MANRESA' ~ 'MAN',
    x == 'KIROLBET BASKONIA' ~ 'BAS',
    x == 'LABORAL KUTXA BASKONIA' ~ 'BAS',
    x == 'MONBUS OBRADOIRO' ~ 'OBR',
    x == 'MONTAKIT FUENLABRADA' ~ 'FUE',
    x == 'MORABANC ANDORRA' ~ 'AND',
    x == 'MOVISTAR ESTUDIANTES' ~ 'EST',
    x == 'REAL BETIS ENERGÍA PLUS' ~ 'SEV',
    x == 'REAL MADRID' ~ 'MAD',
    x == 'RETABET BILBAO BASKET' ~ 'BLB',
    x == 'RETABET.ES GBC' ~ 'GBC',
    x == 'RIO NATURA MONBUS OBRADOIRO' ~ 'OBR',
    x == 'SAN PABLO BURGOS' ~ 'BRG',
    x == 'TECNYCONTA ZARAGOZA' ~ 'ZZA',
    x == 'UCAM MURCIA' ~ 'MUR',
    x == 'UCAM MURCIA CB' ~ 'MUR',
    x == 'UNICAJA' ~ 'RON',
    x == 'VALENCIA BASKET' ~ 'PAM',
    x == 'VALENCIA BASKET CLUB' ~ 'PAM'
  )
}
antonkalen/statreliability documentation built on Oct. 21, 2018, 1:12 p.m.