search

Shafko / APPR-2020-21

Vzorčni repozitorij za projekt pri predmetu Analiza podatkov s programom R v študijskem letu 2020/21
MIT License
0 stars 0 forks source link

Uvoz #1

Open jaanos opened 3 years ago

jaanos commented 3 years ago

Opažam, da imaš pet razpredelnic z istimi stolpci - te bi bilo mogoče združiti v eno samo (podatek o tem, za katero ligo gre v posamezni razpredelnici, že imaš). Pravzaprav bi lahko celoten uvoz bistveno skrajšal:

podatki <- lapply(c("eng", "ita", "spa", "ger", "fra"),
                  . %>% sprintf("podatki/%s.json", .) %>%
                    fromJSON(file=.) %>% .$teamTableStats %>%
                    lapply(. %>% lapply(. %>% { ifelse(is.null(.), NA, .) }) %>%
                             as.data.frame()) %>% bind_rows()) %>% bind_rows() %>%
  select(-tournamentId, -tournamentRegionId, -isOpta, -tournamentRegionCode,
         -regionCode, -teamId, -teamRegionName, -seasonName, -seasonId, -ranking)
Shafko commented 3 years ago

Hvala za pripombo, bom uredil!