# NOT RUN {
## Cast PubMed record info into a data.frame
dami_query <- "Damiano Fantini[AU]"
dami_on_pubmed <- get_pubmed_ids(dami_query)
dami_abstracts_xml <- fetch_pubmed_data(dami_on_pubmed, encoding = "ASCII")
xx <- table_articles_byAuth(pubmed_data = dami_abstracts_xml,
included_authors = "first",
max_chars = 100,
autofill = TRUE)
print(xx[1:5, c("pmid", "lastname", "jabbrv")])
#
## Download records first
## Also, auto-fill disabled
dami_query <- "Damiano Fantini[AU]"
curr.file <- batch_pubmed_download(dami_query, dest_file_prefix = "test_bpd_", encoding = "ASCII")
xx <- table_articles_byAuth(pubmed_data = curr.file[1],
included_authors = "all",
max_chars = 20,
autofill = FALSE)
print(xx[1:5, c("pmid", "lastname", "jabbrv")])
# }
Run the code above in your browser using DataLab