# NOT RUN {
# load images
fl <- system.file('extdata', 'Image0001_.jpg', package = 'colocr')
img <- image_load(fl)
# choose ROI
newimg <- roi_select(img, threshold = 90)
# check the ROI labels
unique(attr(newimg, 'label'))
# }
Run the code above in your browser using DataLab