tests/testthat/test-oa2bibliometrix.R

In massimoaria/openalexR: Getting Bibliographic Records from 'OpenAlex' Database Using 'DSL' API

test_that("oa2bibliometrix works", {
  skip_on_cran()

  aria_citations <- oa_fetch(
    entity = "works",
    cites = "W2755950973",
    from_publication_date = "2021-01-01",
    to_publication_date = "2021-01-31"
  )

  expect_warning(aria_bibli <- oa2bibliometrix(aria_citations))
  expect_s3_class(aria_bibli, "data.frame")
  expect_equal(nrow(aria_citations), nrow(aria_bibli))
})