Nothing
To get the current development version from GitHub:
# install.packages("devtools") devtools::install_github("soodoku/clarifai")
library(clarifai)
Start by setting Client ID and secret, which you can get from https://developer.clarifai.com/
secret_id(c("client_id", "secret"))
Next, get the token (the function also sets it):
get_token()
Get information about your application:
get_info()
## Status message: All images in request have completed successfully.
We are now all set. Let's play. Get tags of a remote image:
res <- tag_image_urls("https://raw.githubusercontent.com/soodoku/clarifai/master/inst/extdata/metro-north.jpg") head(res)
Get tags for a local image:
path <- system.file("inst/extdata/", package = "clarifai") filep <- paste0(path, "/metro-north.jpg") tag_images(filep)
Provide feedback about tags for an image, including suggesting new tags, suggesting that some tags be removed etc.
feedback(file_path="path_to_image", feedback_type="add_tags", feedback_value="suggested_tag")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.