## 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)
Run the code above in your browser using DataLab