tests/testthat/test_get_citation.R

In pmparser: Create and Maintain a Relational Database of Data from PubMed/MEDLINE

refDir = 'citation_info'

test_that('getCitationInfo', {
  skip_on_cran()
  citationInfo = getCitationInfo()
  colsExp = c('download_url', 'supplied_md5')
  expect_s3_class(citationInfo, 'data.table')
  expect_true(all(colsExp %in% colnames(citationInfo)))
  expect_equal(nrow(citationInfo), 1L)
})

test_that('getCitation', {
  skip_on_cran()
  refDir = 'pubmed_sample'
  filename = 'open_citation_collection.zip'
  nrows = 50L

  dCitationExp = data.table::fread(
    cmd = glue('unzip -p {file.path(refDir, filename)}'), nrows = nrows)
  setnames(dCitationExp, c('citing_pmid', 'cited_pmid'))

  dCitationObs = getCitation(
    localDir = refDir, filename = filename, nrows = nrows, checkMd5 = FALSE)
  expect_equal(dCitationObs, dCitationExp)
})