test_df <- data.frame(query_string = c('ANY', 'ANY'),
init_date = c('2020/01/01', '2020/01/10'),
end_date = c('2020/01/11', '2020/01/20'),
diff_days = c(10, 10),
exp_count = 100, 100)
easyPubMed:::EPM_prep_outfile(test_df, path = '.', prefix = 'my_test_job')
Run the code above in your browser using DataLab