if (FALSE) {
# runs spuriously slow on rhub
load(system.file("extdata/meta_data.RData", package = "dataquieR"), envir =
environment())
load(system.file("extdata/study_data.RData", package = "dataquieR"), envir =
environment())
report <- suppressWarnings(dq_report(
variables = head(meta_data[[LABEL]], 5),
study_data, meta_data,
cores = 1,
label_col = LABEL, dimensions =
c( # for sake of speed, omit Accuracy here
"Consistency")
))
x <- summary(report)
}
Run the code above in your browser using DataLab