# NOT RUN {
vis <- computervision_endpoint(
url="https://accountname.cognitiveservices.azure.com/",
key="account_key"
)
list_domains(vis)
# analyze a local file
analyze(vis, "image.jpg")
# picture on the Internet
analyze(vis, "https://example.com/image.jpg")
# as a raw vector
analyze(vis, readBin("image.jpg", "raw", file.size("image.jpg")))
# analyze has optional extras
analyze(vis, "image.jpg", feature_types=c("faces", "objects"))
describe(vis, "image.jpg")
detect_objects(vis, "image.jpg")
area_of_interest(vis, "image.jpg")
tag(vis, "image.jpg") # more reliable than analyze(*, feature_types="tags")
categorize(vis, "image.jpg")
read_text(vis, "scanned_text.jpg")
# }
Run the code above in your browser using DataCamp Workspace