## Not run:
# # update using a deletehash, anonymously
# i <- imgur()
# hist(rnorm(20))
# img <- imgur_off(i)
# a1 <-
# create_album(id = img,
# title = 'My first Imgur album',
# description = 'A simple album',
# privacy = 'hidden',
# layout = 'grid',
# cover_id = img)
# update_album(a1$deletehash, title = 'My second Imgur album')
#
# # update using an OAuth token
# tkn <- imgur_login()
# a2 <-
# create_album(id = img,
# title = 'My first Imgur album',
# description = 'A simple album',
# privacy = 'hidden',
# layout = 'grid',
# cover_id = img,
# token = tkn)
# update_album(a2, title = 'My second Imgur album')
# ## End(Not run)
Run the code above in your browser using DataLab