Nothing
#' Provide Feedback on Tags of an Image
#'
#' Suggest tags, suggest removal of tags, suggest (dis)similar documents, or let clarifai know which tag was clicked on
#'
#' @param feedback_type must be one of the following types:
#' \code{add_tags} vector of suggested tags; default
#' \code{remove_tags} vector of tags you suggest be removed
#' \code{search_click} which tag(s) where clicked on
#' \code{similar_docids} similar documents
#' \code{dissimilar_docids} dissimilar documents
#' @param file_path image on which the feedback is being provided
#' @param feedback_value what tags to add, remove etc.
#' @param \dots Additional arguments passed to \code{\link{clarifai_POST}}.
#'
#'
#' @export
#'
#' @references \url{https://developer.clarifai.com/guide/}
#'
#' @examples \dontrun{
#'
#' # Before calling the function, set API secret and id via secret_id(c("client_id", "secret"))
#' # and get token via get_token()
#'
#' feedback(file_path="path_to_image", feedback_type="add_tags", feedback_value="suggested_tag")
#' }
#'
feedback <- function(file_path = "", feedback_type='add_tags', feedback_value="", ...) {
if(!file.exists(file_path)) stop("File doesn't exist. Please check file_path again.", call. = FALSE)
if(identical(feedback_value, "")) stop("Please provide something other than an empty string as feedback.", call. = FALSE)
clarifai_check_token()
h <- new_handle()
handle_setopt(h, customrequest = "POST")
handle_setheaders(h, "Authorization" = paste0("Bearer ", Sys.getenv("ClarifaiToken")))
switch(feedback_type,
add_tags = {handle_setform(h, encoded_image = form_file(file_path), add_tags = feedback_value)},
remove_tags = {handle_setform(h, encoded_image = form_file(file_path), remove_tags = feedback_value)},
search_click = {handle_setform(h, encoded_image = form_file(file_path), search_click = feedback_value)},
similar_docids = {handle_setform(h, encoded_image = form_file(file_path), similar_docids = feedback_value)},
dissimilar_docids = {handle_setform(h, encoded_image = form_file(file_path), dissimilar_docids = feedback_value)})
tag_con <- curl_fetch_memory("https://api.clarifai.com/v1/feedback/", handle=h)
tag <- fromJSON(rawToChar(tag_con$content))
tag
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.