tests/testthat/test_epmc_hits_trend.R

In europepmc: R Interface to the Europe PubMed Central RESTful Web Service

context("testing epmc_hits_trend")

test_that("epmc_hits_trend returns", {
  skip_on_cran()
  a <- epmc_hits_trend('aspirin', period = 2006:2016, synonym = FALSE)
  b <- epmc_hits_trend('REF:"cran.r-project.org*"', period = 2006:2016, synonym = FALSE)
  c <- epmc_hits_trend('(REF:"cran.r-project.org*") AND (PUB_TYPE:"Review" OR PUB_TYPE:"review-article")', period = 2006:2016, synonym = FALSE)
  d <- epmc_hits_trend('aspirin', period = 2006:2016, data_src = "med")



  expect_is(a, "tbl_df")
  expect_is(b, "tbl_df")
  expect_is(c, "tbl_df")
  expect_is(d, "tbl_df")

  expect_true(all(names(a) == c("year", "all_hits", "query_hits")))
  expect_true(all(names(b) == c("year", "all_hits", "query_hits")))
  expect_true(all(names(c) == c("year", "all_hits", "query_hits")))
  expect_true(all(names(d) == c("year", "all_hits", "query_hits")))


  expect_true(all(a$year == 2006:2016))
  expect_true(all(b$year == 2006:2016))
  expect_true(all(c$year == 2006:2016))
  expect_true(all(d$year == 2006:2016))
})

test_that("epmc_hits_trend fails correctly", {
  skip_on_cran()
  # input validation
  expect_error(epmc_hits_trend("aspirin", period = "2006:2004", synonym = FALSE))
  expect_error(epmc_hits_trend("aspirin", period = 2006:2008, synonym = "f"))
  expect_error(epmc_hits_trend(query = 123, period = 2006:2008))
  expect_error(epmc_hits_trend("aspirin", data_src = "abc"))
})

test_that("epmc_hits_trend synonym search works correctly", {
  skip_on_cran()

  a <- epmc_hits_trend('malaria', period = 2012:2016, synonym = FALSE)
  b <- epmc_hits_trend('malaria', period = 2012:2016, synonym = TRUE)

  expect_gte(sum(b$query_hits), sum(a$query_hits))
})