if (interactive() && requireNamespace("EBImage")) {
library(pliman)
flax <- image_pliman("flax_leaves.jpg")
shape <- image_shp(flax, nrow = 3, ncol = 5)
# grid on the existing image
plot(flax)
plot(shape)
}
Run the code above in your browser using DataLab