data(vi_smol, vi_predictors)
#invalid logical
vi_smol$logical_invalid <- TRUE
#valid logical
vi_smol$logical_valid <- sample(
x = c(TRUE, FALSE),
size = nrow(vi_smol),
replace = TRUE
)
x <- identify_logical_variables(
df = vi_smol,
predictors = c(
vi_predictors,
"logical_invalid",
"logical_valid"
)
)
x$valid
x$invalid
Run the code above in your browser using DataLab