if (FALSE) {
## Read in API key
ak <- readLines("api_key.txt")
## Example Pubmed searches, some valid, some not, some with more
## than 10k results
searches <- tribble(
~terms,
"Carlisle B[Author]",
"NCT00267865",
"(Clinical Trial[Publication Type])",
""
)
## Download search results
results <- get_pmids_from_searches(searches, "terms", ak)
}
Run the code above in your browser using DataLab