get_annotations: get image annotations

In cschwem2er/imgrec: An Interface for Image Recognition

Description

Calls the 'Google Vision' API to return annotations. The function automatically creates batches

Usage

get_annotations(images, features, max_res, mode)

Arguments

images	A character vector for images to be annotated. Can either be url strings or local images, as specified with mode.
features	A character vector for the features to be returned. Accepts 'all' or any combination of the following inputs: 'label', 'web', 'text', 'face', 'landmark', 'logo', 'safe_search', 'object', 'properties'
max_res	An integer specifying the maximum number of results to be returned for each feature.
mode	Accepts 'url' for image urls and 'local' for file paths to local images.

Value

An response object of class 'gvision_annotations'.

See Also

Google Vision features and quotas.

Examples

## Not run: 

 gvision_init()

 # one image url
 sw_image <- 'https://upload.wikimedia.org/wikipedia/en/4/40/Star_Wars_Phantom_Menace_poster.jpg'
 results <- get_annotations(images = sw_image, # image character vector
                           features = 'all', # request all available features
                           max_res = 10, # maximum number of results per feature
                           mode = 'url')  # maximum number of results per feature

 # multiple image urls
 finn_image <- 'https://upload.wikimedia.org/wikipedia/en/2/2a/Finn-Force_Awakens_%282015%29.png'
 padme_image <- 'https://upload.wikimedia.org/wikipedia/en/e/ee/Amidala.png'

 input_imgs <- c(sw_image, finn_image, padme_image)
 results <- get_annotations(images = input_imgs,
            features = c('label', 'face'), max_res = 5, mode = 'url')
            
 # one local image
 temp_img_path <- tempfile(fileext = '.png')
 download.file(finn_image, temp_img_path, mode = 'wb', quiet = TRUE)

 results <- get_annotations(images = temp_img_path,
            features = c('label', 'face'), max_res = 5, mode = 'local')
 
## End(Not run)

cschwem2er/imgrec documentation built on Dec. 26, 2021, 8:44 a.m.