# NOT RUN {
iris %>%
as_cell_df() %>%
sample_based_classifier(value_sample = "setosa") %>%
plot()
iris %>%
as_cell_df() %>%
sample_based_classifier(value_sample = "setosa") %>%
numeric_values_classifier() %>%
plot()
if (rlang::is_installed("tidyxl")) {
cdn <- system.file("extdata", "RBI_HBS_Table_No_166.xlsx", package = "tidycells") %>%
tidyxl::xlsx_cells()
cdn <- cdn %>%
dplyr::filter(sheet == sheet[1]) %>%
as_cell_df()
# all of these are same except value_attribute_classify will perform validate_cells once again
cd1 <- sample_based_classifier(cdn, value_sample = "APR")
cd2 <- sample_based_classifier(value_sample = "APR")(cdn)
cd3 <- value_attribute_classify(cdn,
classifier = sample_based_classifier(value_sample = "APR")
)
# see it
plot(cd3)
}
# }
Run the code above in your browser using DataLab