tests/testthat/test-scholar.R

In jkeirstead/scholar: Analyse Citation Data from Google Scholar

context("scholar tests - online")

test_that("get_profile works", {
    skip_on_cran()
    skip_if_offline()
    expect_is(p <- get_profile('xJaxiEEAAAAJ'), 'list')
    expect_equal(p[['name']], 'Isaac Newton')
})

test_that("get_complete_authors works (single)", {
  skip_on_cran()
  skip_if_offline()
  id = "xJaxiEEAAAAJ"
  pubs = get_publications(id)
  result = get_complete_authors(id, pubs$pubid[1])
  expect_equal(length(result), 1)
})

test_that("get_complete_authors works (vector)", {
  skip_on_cran()
  skip_if_offline()
  id = "xJaxiEEAAAAJ"
  pubs = get_publications(id)
  result = get_complete_authors(id, pubs$pubid[1:2])
  expect_equal(length(result), 2)
})

test_that("get_citation_history works", {
    skip_on_cran()
    skip_if_offline()
    expect_is(h <- get_citation_history("xJaxiEEAAAAJ"), 'data.frame')
    expect_equal(names(h), c("year", "cites"))
})

test_that("get_article_cite_history works", {
  skip_on_cran()
  skip_if_offline()
  expect_is(ach <- get_article_cite_history("B7vSqZsAAAAJ", "qxL8FJ1GzNcC"),
            'data.frame')
  expect_equal(names(ach), c("year", "cites", "pubid"))
})

test_that("get_profile works", {
    skip_on_cran()
    skip_if_offline()
    id <- 'xJaxiEEAAAAJ'
    authorlist <- scholar::get_publications(id)$author
    author <- scholar::get_profile(id)$name
    author_position(authorlist, author)

    expect_is(h <- get_citation_history("xJaxiEEAAAAJ"), 'data.frame')
    expect_equal(names(h), c("year", "cites"))
})


test_that("get_publication_abstract works", {
  skip_on_cran()
  skip_if_offline()
  id <- 'K6EVDoYAAAAJ'
  #pub <- scholar::get_publications(id)
  pub_id <- "HIFyuExEbWQC" # pub[1,]$pubid

  abst <- scholar::get_publication_abstract(id, pub_id)
  #message(paste0(" ",stringr::str_sub(abst, 1, 21)))
  testthat::expect_equal(stringr::str_sub(abst,1,20), "Practitioner Summary")
})

test_that("get_publication_url works", {
  skip_on_cran()
  skip_if_offline()
  id <- 'K6EVDoYAAAAJ'
  #pub <- scholar::get_publications(id)
  pub_id <- "HIFyuExEbWQC" #pub_id <- pub[1,]$pubid

  url <- scholar::get_publication_url(id, pub_id)
  # message(paste0(" ",stringr::str_sub(url, 1, 8)))
  testthat::expect_equal(stringr::str_sub(url, 1,8), "https://")
})



# Here we could add tests that use cached data
# context("scholar tests - offline")