# For one article
out <- almevents(doi="10.1371/journal.pone.0029797")
names(out) # names of sources
# remove those with no data
out <- out[!out %in% c("sorry, no events content yet","parser not written yet")]
out[["pmc"]] # get the results for PubMed Central
out[["twitter"]] # get the results for twitter (boo, there aren't any)
out[c("twitter","crossref")] # get the results for two sources
# Another example
(out <- almevents(doi="10.1371/journal.pone.0001543"))
# remove those with no data
out <- out[!out %in% c("sorry, no events content yet","parser not written yet")]
names(out)
# Two doi's
dois <- c('10.1371/journal.pone.0001543','10.1371/journal.pone.0040117')
out <- almevents(doi=dois)
out[[1]]
out[[2]]
out[[1]][["figshare"]][[2]]
# Specify a specific source
almevents(doi="10.1371/journal.pone.0035869", source="crossref")
# Specify two specific sources
almevents(doi="10.1371/journal.pone.0035869", source=c("crossref","twitter"))
# Figshare data
almevents(doi="10.1371/journal.pone.0069841", source='figshare')
# Datacite data
almevents("10.1371/journal.pone.0012090", source='datacite')
# F1000 Prime data
almevents("10.1371/journal.pbio.1001041", source='f1000')
dois <- c('10.1371/journal.pmed.0020124','10.1371/journal.pbio.1001041',
'10.1371/journal.pbio.0040020','10.1371/journal.pmed.1001300')
res <- almevents(doi = dois, source='f1000')
res[[3]]
Run the code above in your browser using DataLab