tests/testthat/test-meta_data.R

test_that("meta data complete", {
  has_data <- sapply(rvestScraper, function(scrp) all(c("url", "jobNameXpath", "domain", "href") %in% names(scrp)))
  expect_equal(all(has_data), TRUE)
})
Toniiiio/SteveAI documentation built on Nov. 8, 2021, 1:40 a.m.