data <- readRDS(
system.file("extdata", "test_linelist.RDS", package = "cleanepi")
)
# find duplicates across the following columns: "dt_onset", "dt_report",
# "sex", and "outcome"
dups <- find_duplicates(
data = data,
target_columns = c("dt_onset", "dt_report", "sex", "outcome")
)
# print the detected duplicates
print_report(dups, "found_duplicates")
Run the code above in your browser using DataLab