R/create_image.R

In JohnCoene/oRion: Integrate R & Cheetah Mobile Orion

#' Upload an image
#' 
#' @description Upload an image
#' 
#' @param file Image data, supports JPEG, GIF and PNG.
#' 
#' @examples 
#' \dontrun{
#' # authenticate
#' orionOAuth(client.id = 0000,
#'            client.secret = "0x00000000x00x0x000xxx0000x0xx0")
#' 
#' # upload image            
#' createImage(file = paste0(.libPaths(), "/png/img/Rlogo.png"))
#' }
#' 
#' @seealso \code{\link{orionOAuth}}
#' 
#' @author John Coene \email{jcoenep@@gmail.com}
#' 
#' @export
createImage <- function(file){
  body <- list(
    file = httr::upload_file(file)
  )
  result <- createObject(body = body, object = "image")
  return(result)
}