# 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({
my_q <- 'easyPubMed'
my_params <- list(q = my_q)
easyPubMed:::EPM_esearch_basic_q(params = my_params)
}, silent = TRUE)
setTimeLimit(elapsed = Inf)
Run the code above in your browser using DataLab