# 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