f = tempfile(fileext = ".png")
png(f)
plot(rnorm(100), main = R.version.string)
dev.off()
res = imgur_upload(f)
res$links$original # link to original URL of the image
if (interactive())
browseURL(res$links$imgur_page) # imgur page
Run the code above in your browser using DataLab