Add to bibliography from doi

add_to_bib.r

library(rcrossref)

add_to_bib <- function(doi, bib="ms.bib", print_ref=TRUE){
    ref <- cr_cn(doi)
    cat("\n", ref, "\n\n", file=bib, append=TRUE)
    if(print_ref){
        cat(ref, "\n")
    }
}

#add_to_bib("10.1186/1475-2875-11-77")
#@article{McCollum_2012,
#	doi = {10.1186/1475-2875-11-77},
#	url = {http://dx.doi.org/10.1186/1475-2875-11-77},
#	year = 2012,
#	publisher = {Springer Science $\mathplus$ Business Media},
#	volume = {11},
#.