# Basic usage with auto-detection
patient_data <- data.frame(
patient_id = c("P001", "P002", "P003"),
name = c("John Doe", "Jane Smith", "Bob Johnson"),
dob = as.Date(c("1980-01-15", "1975-03-20", "1990-06-10")),
location = c("New York, NY", "Los Angeles, CA", "Chicago, IL"),
diagnosis = c("A", "B", "A")
)
anonymize_dataframe(patient_data, seed = 123)
# With month_year date granularity (YYYYMM format)
anonymize_dataframe(patient_data, date_method = "round", date_granularity = "month_year")
# Works with data.table
if (requireNamespace("data.table", quietly = TRUE)) {
dt <- data.table::as.data.table(patient_data)
anonymize_dataframe(dt)
}
# With UUID anonymization (default)
anonymize_dataframe(patient_data, seed = 123)
# Without UUID (sequential IDs)
anonymize_dataframe(patient_data, use_uuid = FALSE, seed = 123)
Run the code above in your browser using DataLab