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)
# })

Try the rbhl package in your browser

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

rbhl documentation built on May 13, 2021, 9:07 a.m.