tests/testthat/test-getpages.R

# test_that("getpages works", {
#   skip_on_cran()
#
#   tt <- getpages(itemid = 16800)
#
#   # the correct classes
#   expect_is(tt, "list")
#
#   expect_is(tt[[1]], "character")
#   expect_gt(length(tt), 50)
# })
ropensci/rbhl documentation built on Sept. 12, 2022, 2:02 p.m.