# using a deletehash, anonymously
u <- upload_image('file.png')
delete_image(u$deletehash)
# using an OAuth token
tkn <- imgur_login()
u <- upload_image('file.png', token = tkn)
delete_image(u, token = tkn)
Run the code above in your browser using DataLab