tests/testthat/test-citation.R

test_that("citations pulled", {
  paper_cite_link <- "https://scholar.google.com/scholar?cites=6140457238337460780"

  papers_cited_df <- get_citation_count(paper_cite_link)

  testthat::expect_named(papers_cited_df, c('original_paper', 'cite_titles', 'links'))
})

Try the metricminer package in your browser

Any scripts or data that you put into this service are public.

metricminer documentation built on April 4, 2025, 2:41 a.m.