# do not rename 'date.of.admission'
cleaned_data <- standardize_column_names(
data = readRDS(
system.file("extdata", "test_df.RDS", package = "cleanepi")
),
keep = "date.of.admission"
)
# do not rename 'date.of.admission', but rename 'dateOfBirth' and 'sex' to
# 'DOB' and 'gender' respectively
cleaned_data <- standardize_column_names(
data = readRDS(
system.file("extdata", "test_df.RDS", package = "cleanepi")
),
keep = "date.of.admission",
rename = c(DOB = "dateOfBirth", gender = "sex")
)
Run the code above in your browser using DataLab