packages <- c("tidyverse", "janitor")
packages <- lapply(packages, FUN = function(x) {
if(!require(x, character.only = TRUE)) {
install.packages(x)
library(x, character.only = TRUE)}})
df <- diamonds
dupes <- get_dupes(df, "caret")
nrow(dupes)
head(dupes)
distinct <- df %>% distinct(caret, .keep_all=TRUE)
nrow(distinct)