tests/testthat/test-literature_mltext.R

In rif: Client for 'Neuroscience' Information Framework 'APIs'

context("literature_mltext")

test_that("literature_mltext", {
  skip_on_cran()

  tt <- literature_mltext(text = "cellular")

  expect_is(tt, "data.frame")
  expect_is(tt$pmid, "character")
  expect_is(tt$pmcid, "character")
  expect_is(tt$title, "character")
  expect_is(tt$authors, "list")
  expect_is(tt$grantIds, "list")
  expect_is(tt$grantAgencies, "list")
  expect_is(tt$retractions, "list")
  expect_is(tt$journal, "character")
  expect_is(tt$journalShort, "character")
  expect_is(tt$day, "integer")
  expect_is(tt$month, "integer")
  expect_is(tt$year, "integer")
  expect_is(tt$meshHeadings, "list")
  expect_is(tt$hasAbstract, "logical")
  expect_is(tt$score, "numeric")
  expect_is(tt$snippets, "list")
  expect_is(tt$affiliation, "list")
})