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$links$imgur_page) # imgur page
## to use your own key
opts_knit$set(upload.fun = function(file) imgur_upload(file, key = "your imgur key"))
Run the code above in your browser using DataLab