Infer Shiny app shows only best score for each student

phgrosjean · phgrosjean · commit 2d3d4eb41b5e · 2025-05-11T12:46:28.000+02:00
diff --git a/inst/shiny/A10Ca_infer/app.R b/inst/shiny/A10Ca_infer/app.R
@@ -184,6 +184,8 @@ server <- function(input, output) {
       ranking <- ranking[order(-ranking$score, as.numeric(ranking$date)), ]
       ranking$date <- as.POSIXct(ranking$date, origin = "1960-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
`@@ -184,6 +184,8 @@ server <- function(input, output) {`
`184`	`184`	`ranking <- ranking[order(-ranking$score, as.numeric(ranking$date)), ]`
`185`	`185`	`ranking$date <- as.POSIXct(ranking$date, origin = "1960-01-01")`
`186`	`186`	`ranking$date <- format(ranking$date, "%Y-%m-%d %H:%M:%S")`
	`187`	`+ # Keep only best score for each student or team`
	`188`	`+ ranking <- ranking[!duplicated(ranking$project), ]`
`187`	`189`	`}`
`188`	`190`	`message("Date reworked")`
`189`	`191`	`# Add a column with medals for the three first results`