if (interactive() && !httr::http_error("https://eutils.ncbi.nlm.nih.gov/")){
file.name <- system.file("Bib", "RJC.bib", package="RefManageR")
bib <- ReadBib(file.name)
bib <- LookupPubMedID(bib[[101:102]])
toBiblatex(GetPubMedRelated(bib, batch.mode = TRUE, max.results = 2,
return.sim.scores = TRUE, return.related.ids = TRUE))
GetPubMedRelated(bib, batch.mode = FALSE, max.results = c(2, 2))
}
Run the code above in your browser using DataLab