# NOT RUN {
# load images
fl <- system.file('extdata', 'Image0001_.jpg', package = 'colocr')
img <- image_load(fl)
# choose and show ROI
oldpar <- par()
par(mfrow=c(2,2))
roi_select(img, threshold = 90) %>%
roi_show()
par(oldpar)
# }
Run the code above in your browser using DataLab