Calls the 'Google Vision' API to return annotations. The function automatically creates batches
get_annotations(images, features, max_res, mode)
images | A character vector for images to be annotated. Can either be url strings or local images, as specified with |
---|---|
features | A character vector for the features to be returned. Accepts |
max_res | An integer specifying the maximum number of results to be returned for each feature. |
mode | Accepts |
An response object of class 'gvision_annotations'
.
#># 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#> [1] "Sending API request(s).."# 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')#> [1] "Sending API request(s).."# 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')#> [1] "Sending API request(s).."# }