R/step_sid.R

In SzarR/medusa: Automating SIOP Membership Analytics

#' Removes SID duplicates
#'
#' @param df a tibble of dues data
#'
#' @return a tibble of rows with unique SID values
#' @export
#'
#' @examples
step_sid <- function(df, staff) {

  staff_SID <-
    staff %>%
    pull(SID)

  df <-
    df %>%
    filter(!SID %in% staff_SID) %>%
    group_by(.data$SID) %>%
    arrange(.data$MD_Number) %>%
    arrange(desc(.data$InvoiceDate)) %>%
    slice_max(n = 1, with_ties = FALSE, order_by = .data$MD_Number) %>%
    ungroup() %>%
    return()

}