## Not run:
# # using a deletehash, anonymously
# u <- upload_image('file.png')
# update_image(u$deletehash, title = 'New Title')
#
# # using an OAuth token
# tkn <- imgur_login()
# u <- upload_image('file.png', token = tkn)
# update_image(u, title = 'New Title', token = tkn)
# ## End(Not run)
Run the code above in your browser using DataLab