R/show_duplicates.R

In BAAQMD/tbltools: Read/Write and Manipulate Tabular Data

#' @export
#' @importFrom dplyr group_by filter semi_join tally n
show_duplicates <- function (.data, ...) {
  grouped <- group_by(.data, ...)
  dupes <- filter(tally(grouped), n > 1)
  semi_join(.data, dupes)
}