R/imgur.r

In yutannihilation/qiitaddin: Use Qiita Instead Of Rpubs

#' Upload an image to Imgur
#'
#' Uploads a given image file to Imgur by imguR package.
#'
#' @param file Path to an image file.
#'
#' @return A URL of the uploaded image.
upload_image_imgur <- function(file) {
  # Get OAuth token for Imgur
  imgur_token <- imguR::imgur_login()

  res <- imguR::upload_image(file, key = NULL, token = imgur_token)

  if(is.null(res$link)) {
    stop("No URL is returned: %s", res)
  }
  res$link
}


upload_image_imgur_anonymously <- function(file) {
  res <- imguR::upload_image(file)

  if(is.null(res$link)) {
    stop("No URL is returned: %s", res)
  }
  res$link
}