# NOT RUN {
if (interactive() && !httr::http_error("https://search.crossref.org")){
BibOptions(check.entries = FALSE, sorting = "none")
bib <- ReadBib(system.file("Bib", "RJC.bib", package = "RefManageR"))[1:5]
bib <- GetDOIs(bib)
bib$doi
}
# }
Run the code above in your browser using DataLab