# NOT RUN {
d <- structure(c(
"block 1", "", "C", "D", "", "block 2", "", "C",
"D", "", "A", "1", "2", "", "", "A", "10", "20", "", "B", "3",
"4", "", "", "B", "30", "40"
), .Dim = c(9L, 3L))
d <- as.data.frame(d)
cd <- as_cell_df(d) %>% numeric_values_classifier()
# see it
cd %>% plot(adaptive_txt_size = FALSE)
ca <- analyze_cells(cd)
# look at the plot for detected directions
plot(ca)
# }
Run the code above in your browser using DataLab