# NOT RUN {
#
#
dami_query <- "Damiano Fantini[AU]"
dami_on_pubmed <- get_pubmed_ids(dami_query)
dami_abstracts_xml <- fetch_pubmed_data(dami_on_pubmed)
table_articles_byAuth(pubmed_data = dami_abstracts_xml,
included_authors = "first",
max_chars = 100,
autofill = TRUE)[1:2,]
#
#
dami_query <- "Damiano Fantini[AU]"
curr.file <- batch_pubmed_download(dami_query, dest_file_prefix = "test_bpd_")
table_articles_byAuth(pubmed_data = curr.file[1],
included_authors = "all",
max_chars = 20,
autofill =FALSE)
# }
Run the code above in your browser using DataLab