data <- readRDS(
system.file("extdata", "messy_data.RDS", package = "cleanepi")
)
# convert the 'age' column into numeric
dat <- convert_to_numeric(
data = data,
target_columns = "age",
lang = "en"
)
# print the report from this operation
print_report(data = dat, "converted_into_numeric")
Run the code above in your browser using DataLab