image_caption.R

image_caption <- function(URL) {
 reqURL = paste0(vision_api_endpoint,
                 "/analyze?visualFeatures=Description",
                 "&details=Celebrities,Landmarks")
 
 APIresponse = POST(url = reqURL,
                    content_type('application/json'),
                    add_headers(.headers = c('Ocp-Apim-Subscription-Key' = vision_api_key)),
                    body=list(url = URL),
                    encode = "json") 
 
 df = content(APIresponse)
 cat(URL, "\n")
 cat(paste0("Confidence: ",df$description$captions[[1]]$confidence,"\n"))
 cat("Wikimedia Commons description:\n", attr(URL,"desc"),  "\n")
 cat("Vision API description:\n",  df$description$captions[[1]]$text,"\n")
 invisible(df)
}