# 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 <- epm_query(query_string = 'Damiano Fantini[AU] AND "2018"[PDAT]')
x <- epm_fetch(x)
x <- epm_parse(x, max_references = 5, max_authors = 5)
get_epm_data(x)
}, silent = TRUE)
setTimeLimit(elapsed = Inf)
Run the code above in your browser using DataLab