if (FALSE) {
## Read in API key
ak <- readLines("api_key.txt")
## Download PMID's for search query
results <- get_pmids_from_one_search("Carlisle B[Author]", ak)
## Extract first result
results$pmids[1]
}
Run the code above in your browser using DataLab