# 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')
Run the code above in your browser using DataLab