# \donttest{
library(opencv)
library(magick)
library(image.textlinedetector)
path <- system.file(package = "image.textlinedetector", "extdata", "example.png")
img <- image_read(path)
image_info(img)
img <- image_textlines_crop(img)
image_info(img)
# }
Run the code above in your browser using DataLab