This function uses the httr package to upload a image to https://imgur.com, and parses the XML response to a list with xml2 which contains information about the image in the Imgur website.
Path to the image file to be uploaded.
Client ID for Imgur. By default, this uses a client ID registered by Yihui Xie.
When the output format from
knit() is HTML or Markdown, this
function can be used to upload local image files to Imgur, e.g. set the
opts_knit$set(upload.fun = imgur_upload), so the output
document is completely self-contained, i.e. it does not need external image
files any more, and it is ready to be published online.
A character string of the link to the image; this string carries an
XML which is a list converted from the response XML
file; see Imgur API in the references.
Please register your own Imgur application to get your client ID; you can certainly use mine, but this ID is in the public domain so everyone has access to all images associated to it.
Yihui Xie, adapted from the imguR package by Aaron Statham
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
## Not run: f = tempfile(fileext = ".png") png(f) plot(rnorm(100), main = R.version.string) dev.off() res = imgur_upload(f) res # link to original URL of the image attr(res, "XML") # all information if (interactive()) browseURL(res) # to use your own key opts_knit$set(upload.fun = function(file) imgur_upload(file, key = "your imgur key")) ## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.