# Note: a time limit can be set in order to kill the operation when/if
# the NCBI/Entrez server becomes unresponsive.
setTimeLimit(elapsed = 4.9)
try({
x <- easyPubMed:::EPM_esearch_basic_q(params = list(q = "easyPubMed"))
x <- easyPubMed:::EPM_esearch_parse(x)
my_params <- list(web_env = x$web_env,
query_key = x$query_key,
format = "uilist")
easyPubMed:::EPM_efetch_basic_q(params = my_params)
}, silent = TRUE)
setTimeLimit(elapsed = Inf)
Run the code above in your browser using DataLab