added conditions for games played for standings-race

FlavioLeccese92 · Mar 2, 2024 · c9c33aa · c9c33aa
1 parent 28b2032
commit c9c33aa
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/man/figures/team-standings-race.png b/man/figures/team-standings-race.png
diff --git a/vignettes/articles/team-standings-race.Rmd b/vignettes/articles/team-standings-race.Rmd
@@ -78,8 +78,10 @@ CompetitionStandings <-
             by = "TeamCode") %>%
   left_join(CompetitionStandings %>% filter(Round == MaxRound) %>%
               arrange(desc(Position)) %>%
-              mutate(y = factor(glue("**#{Position}** ({GamesWon*2} pts {GamesPlayed} gp) - {TeamName}"),
-                                levels = glue("**#{Position}** ({GamesWon*2} pts {GamesPlayed} gp) - {TeamName}"))) %>%
+              mutate(
+                gp = ifelse(max(GamesPlayed) != min(GamesPlayed), glue(" {GamesPlayed} gp"), ""),
+                y = factor(glue("**#{Position}** ({GamesWon*2} pts{gp}) - {TeamName}"),
+                                levels = glue("**#{Position}** ({GamesWon*2} pts{gp}) - {TeamName}"))) %>%
               select(y, Position),
             by = "Position") %>%
   filter(Round %in% (MaxRound - NRounds):MaxRound) %>%