if (interactive() && !httr::http_error("https://eutils.ncbi.nlm.nih.gov/")){
file.name <- system.file("Bib", "RJC.bib", package = "RefManageR")
bib <- ReadBib(file.name)
LookupPubMedID(bib[[101:102]])
}
Run the code above in your browser using DataLab