gx <- data.frame(
index = c(1, 2, 3, 4, 5),
JobUniqueId = rep('xyz0x', 5),
JobQuery = rep('test_query', 1),
JobBatch = c(1, 2, 3, 4, 3),
JobBatchNum = rep(4, 5),
stringsAsFactors = FALSE)
easyPubMed:::EPM_check_guide(gx)
Run the code above in your browser using DataLab