if (FALSE) {
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')
}
Run the code above in your browser using DataLab