data <- readRDS(
system.file("extdata", "test_linelist.RDS", package = "cleanepi")
)
no_dups <- remove_duplicates(
data = data,
target_columns = "linelist_tags"
)
# print the removed duplicates
print_report(no_dups, "removed_duplicates")
# print the detected duplicates
print_report(no_dups, "found_duplicates")
Run the code above in your browser using DataLab