# NOT RUN {
cells <- tidy_table(purpose$`NNW WNW`)
# }
# NOT RUN {
anchor(cells, 0, 1)
anchor(cells, 1, 1:2)
# }
# NOT RUN {
anchor(cells, 1, 1)
anchor(cells, 1, 1:2, cross = TRUE)
anchor(cells, 100, 1)
# }
Run the code above in your browser using DataLab