gistfile1.txt

> library(janitor)
> get_dupes
function (dat, ...) 
{
    names <- as.list(substitute(list(...)))[-1L]
    df_name <- deparse(substitute(dat))
    var_names <- names
    if (is.list(var_names)) {
        var_names <- lapply(names, deparse)
    }
    check_vars_in_df(dat, df_name, unlist(var_names))
    dupe_count <- NULL
    if (length(names) == 0) {
        var_names <- names(dat)
        names <- paste0("`", as.list(names(dat)), "`")
        message("No variable names specified - using all columns.\n")
    }
    counts <- dat %>% dplyr::count_(vars = names)
    dupes <- suppressMessages(dplyr::inner_join(counts, dat))
    dupes <- dupes %>% dplyr::filter(n > 1) %>% dplyr::ungroup() %>% 
        dplyr::arrange_(.dots = names) %>% dplyr::rename(dupe_count = n)
    if (length(var_names) > 10) {
        var_names <- c(var_names[1:9], paste("... and", length(var_names) - 
            9, "other variables"))
    }
    if (nrow(dupes) == 0) {
        message(paste0("No duplicate combinations found of: ", 
            paste(var_names, collapse = ", ")))
    }
    dupes
}
<environment: namespace:janitor>