tmp_meta <- list(max_records_per_batch = 1000,
exp_count = 10,
exp_num_of_batches = 1,
all_records_covered = TRUE,
exp_missed_records = 0,
query_date = "2023-10-16 23:13:29",
UID = 'EPMJ_20231017141741_c4das',
EPM_version = "3.01")
tmp_jobs <- data.frame(query_string = 'my test query',
init_date = '1990/01/01',
end_date = '2023/01/01',
diff_days = 12053,
exp_count = 10,
stringsAsFactors = FALSE)
easyPubMed:::EPM_encode_meta_to_xml(meta = tmp_meta, job_list = tmp_jobs,
i = 1, encoding = 'UTF-8' )
Run the code above in your browser using DataLab