Challenge: present only best score for student/team

phgrosjean · phgrosjean · commit 4446c402993e · 2024-11-06T10:40:13.000+01:00
diff --git a/inst/shiny/C03Ca_ml_wine/app.R b/inst/shiny/C03Ca_ml_wine/app.R
@@ -208,6 +208,8 @@ server <- function(input, output) {
       ranking <- ranking[order(-ranking$score, as.numeric(ranking$date)), ]
       ranking$date <- as.POSIXct(ranking$date, origin = "1970-01-01")
       ranking$date <- format(ranking$date, "%Y-%m-%d %H:%M:%S")
+      # Keep only best score for each student or team
+      ranking <- ranking[!duplicated(ranking$project), ]
     }
     message("Date reworked")
     # Add a column with medals for the three first results

Original file line number	Diff line number	Diff line change
`@@ -208,6 +208,8 @@ server <- function(input, output) {`
`208`	`208`	`ranking <- ranking[order(-ranking$score, as.numeric(ranking$date)), ]`
`209`	`209`	`ranking$date <- as.POSIXct(ranking$date, origin = "1970-01-01")`
`210`	`210`	`ranking$date <- format(ranking$date, "%Y-%m-%d %H:%M:%S")`
	`211`	`+ # Keep only best score for each student or team`
	`212`	`+ ranking <- ranking[!duplicated(ranking$project), ]`
`211`	`213`	`}`
`212`	`214`	`message("Date reworked")`
`213`	`215`	`# Add a column with medals for the three first results`