if (FALSE) {
x <- epm_query(query_string = 'easyPubMed', verbose = TRUE)
x <- epm_fetch(x = x, write_to_file = TRUE, store_contents = FALSE,
outfile_prefix = 'qpm_qry_', verbose = TRUE)
y <- EPM_read_xml(x = 'qpm_qry__batch_01.txt')
try(unlink('qpm_qry__batch_01.txt'), silent = TRUE)
y
}
Run the code above in your browser using DataLab