R/deduplicate_predictions.R

In eco4cast/score4cast: Scoring Utilities for Forecast Competitions

#' @importFrom dplyr across any_of

deduplicate_predictions <- function(df){
  
  has_dups <- df %>% 
    select(-any_of("prediction")) %>% 
    vctrs::vec_group_id() %>% 
    vctrs::vec_duplicate_any()
  
  if(has_dups) {
    df <- df %>%
      filter(!is.na(prediction)) %>%
      group_by(across(-any_of("prediction"))) %>% 
      filter(dplyr::row_number() == 1L)
  }
  
  df
}