# scan through the data
scan_res <- scan_data(
data = readRDS(system.file("extdata", "test_df.RDS", package = "cleanepi"))
)
# Perform data cleaning
cleaned_data <- clean_data(
data = readRDS(
system.file("extdata", "test_df.RDS", package = "cleanepi")
),
to_numeric = list(target_columns = "sex", lang = "en"),
dictionary = NULL
)
# add the data scanning result to the report
cleaned_data <- add_to_report(
x = cleaned_data,
key = "scanning_result",
value = scan_res
)
Run the code above in your browser using DataLab