R/account_albums.r

In imguR: An Imgur.com API Client Package

account_albums <-
function(account = 'me',
         ids = TRUE,
         ...){
    if(!"token" %in% names(list(...)) && account == 'me')
        stop("This operation can only be performed for account 'me' using an OAuth token.")
    if(ids) {
        out <- imgurGET(paste0('account/', account, '/albums/ids'), ...)
        structure(out, class = 'imgur_basic')
    } else {
        out <- imgurGET(paste0('account/', account, '/albums/'), ...)
        lapply(out, `class<-`, 'imgur_album')
    }
    
}