updated charts

FlavioLeccese92 · Mar 2, 2024 · f220604 · f220604
1 parent 0c15189
commit f220604
Show file tree

Hide file tree

Showing 8 changed files with 7 additions and 6 deletions.
diff --git a/man/figures/euroleague-logo-vertical.png b/man/figures/euroleague-logo-vertical.png
diff --git a/man/figures/fa-brands-400.ttf b/man/figures/fa-brands-400.ttf
diff --git a/man/figures/team-standings-race.png b/man/figures/team-standings-race.png
diff --git a/man/figures/team-stats-court.png b/man/figures/team-stats-court.png
diff --git a/man/figures/team-stats-radarchart.png b/man/figures/team-stats-radarchart.png
diff --git a/vignettes/articles/team-standings-race.Rmd b/vignettes/articles/team-standings-race.Rmd
@@ -63,7 +63,7 @@ CompetitionStandings <- getCompetitionStandings("E2023", CompetitionRounds$Round
 MaxRound <- max(CompetitionStandings$Round)
 MaxGameDate <- CompetitionRounds %>% filter(Round == MaxRound) %>% pull(MaxGameStartDate) %>% 
   format(., '%d %b %Y')
-NRounds <- 12
+NRounds <- 10
 
 Teams <- getTeam("E2023", unique(CompetitionStandings$TeamCode))
 ```
@@ -77,8 +77,8 @@ CompetitionStandings <-
             by = "TeamCode") %>%
   left_join(CompetitionStandings %>% filter(Round == MaxRound) %>%
               arrange(desc(Position)) %>%
-              mutate(y = factor(glue("**#{Position}** ({GamesWon*2} pts) - {TeamName}"),
-                                levels = glue("**#{Position}** ({GamesWon*2} pts) - {TeamName}"))) %>%
+              mutate(y = factor(glue("**#{Position}** ({GamesWon*2} pts {GamesPlayed} gp) - {TeamName}"),
+                                levels = glue("**#{Position}** ({GamesWon*2} pts {GamesPlayed} gp) - {TeamName}"))) %>%
               select(y, Position),
             by = "Position") %>%
   filter(Round %in% (MaxRound - NRounds):MaxRound) %>% 

diff --git a/vignettes/articles/team-stats-court.Rmd b/vignettes/articles/team-stats-court.Rmd
@@ -64,14 +64,15 @@ showtext_auto()
 
 ```{r data}
 CompetitionRounds <- getCompetitionRounds("E2023") %>%
-  filter(MaxGameStartDate <= Sys.Date())
+  filter(MinGameStartDate <= Sys.Date())
 
 MaxRound <- max(CompetitionRounds$Round)
 MaxGameDate <- format(as.Date(max(CompetitionRounds$MaxGameStartDate)), 
                      '%d %b %Y')
 
 CompetitionStandings <- getCompetitionStandings("E2023", MaxRound)
-CompetitionGames <- getCompetitionGames("E2023", CompetitionRounds$Round)
+CompetitionGames <- getCompetitionGames("E2023", CompetitionRounds$Round) %>% 
+  filter(Status == "result")
 GamePoints <- getGamePoints("E2023", CompetitionGames$GameCode)
 ```
 

diff --git a/vignettes/articles/team-stats-radar.Rmd b/vignettes/articles/team-stats-radar.Rmd
@@ -64,7 +64,7 @@ showtext_auto()
 
 ```{r data}
 CompetitionRounds <- getCompetitionRounds("E2023") %>%
-  filter(MaxGameStartDate <= Sys.Date()) %>%
+  filter(MinGameStartDate <= Sys.Date()) %>%
   slice_head(n = 1)
 
 MaxRound <- max(CompetitionRounds$Round)