## Not run:
# # login interactively
# tkn <- imgur_login()
# # use token in the `imgur` device
# i <- imgur('png', token = tkn)
# hist(rnorm(20))
# imgur_off(i)
#
# # reload previous token
# rm(tkn)
# # OAuth token is automatically stored by
# # `imgur_login` if `cache = TRUE` (the default)
# # It is reloaded by calling `imgur_login`
# tkn <- imgur_login()
# token$refresh() # refresh token
# ## End(Not run)
Run the code above in your browser using DataLab