tests/testthat/test-ngramr.R

In seancarmody/ngramr: Retrieve and Plot Google n-Gram Data

context("Package")
test_that("package data", {
  expect_equal(dim(hacker), c(236, 4))
  expect_equal(class(hacker)[1], "ngram")
  expect_equal(dim(corpuses), c(44, 7))
  expect_equal(dim(corpus_totals), c(12945, 5))
  expect_equal(unlist(corpus_totals[12945,], use.names = FALSE),
               c("es-2019", 2019, 1658430069, 10286019, 24720))
})

test_that("utility functions", {
  expect_equal(chunk(letters, len=4)[[4]], letters[12:15])
})

context("Google")
test_that("google calls", {
  skip_if_offline()
  skip_if(is.null(ngram("dog")), "Google Ngram calls not succeeding.")
  expect_equal(dim( ngrami("dog", year_start = 1950, year_end = 2020)), c(71, 4))
  expect_equal(dim(ngram(c("hacker", "programmer"), corpus = c("en-2012", "en-US-2012"), 
                         year_start = 1950, year_end = 2008)), dim(hacker))
  expect_equal(dim(ngramw(hacker)), c(118, 4))
  expect_equal(dim(ngram(c("military"), corpus = "en-2012", year_start = 1940, 
                         year_end = 2005, smoothing = 0)), c(66, 4))
})