Return a bib file for a vector of DOIs

doi2bib.R

doi2bib <- function(dois, file=NULL, quiet=FALSE) {
  # dois: vector of dois
  require(httr)
  bibs <- sapply(dois, function(x) {
    if(!quiet) message(x)
    response <- httr::GET(
      'http://dx.doi.org', path=x, 
      add_headers(Accept = 'application/x-bibtex')
    )
    httr::content(response, as='text', encoding='UTF-8')
  })
  if(!is.null(file)) {
    cat(bibs, file=file, sep='\n\n')
  }
  bibs
}