R/dupe.R

In sampler: Sample Design, Drawing & Data Analysis Using Data Frames

#' Identifies duplicate values within collected data
#' @param df object containing data frame of collected data
#' @param col_name variable within data frame by which to filter for duplicate values
#' @return Returns table of duplicate values within collected data
#' @examples
#' aldupe <- rsamp(df=albania, n=390, rep=TRUE)
#' dupe(df=aldupe, col_name=qvKod)
#' @import
#' dplyr
#' @export
dupe <- function(df, col_name) {
  col_name <- enquo(col_name)
  df %>% group_by(!!col_name) %>% count(!!col_name) %>% filter(n > 1)
}