ocv_read_annotorious {recogito}

Extract the areas of interests of an image

Description

Extract the areas of interests of an image

Usage

ocv_read_annotorious(data, image)

Arguments

data

an object as returned by read_annotorious

image

an ocv image object

Value

a list of ocv images with the extracted areas of interest

Examples

library(opencv)
library(magick)
data(openseadragon_areas)

url  <- attr(openseadragon_areas, "src")
img  <- ocv_read(url)

areas <- ocv_read_annotorious(data = openseadragon_areas, image = img)
areas[[1]]
areas[[2]]
img <- lapply(areas, FUN = function(x) image_read(ocv_bitmap(x)))
img <- do.call(c, img)
img <- image_append(img, stack = FALSE)
image_resize(img, "x200")