tests/testthat/test-i14y_search_catalog.R

test_that("i14y_search_catalog() returns a data.frame", {
  if (!curl::has_internet()) {
    skip("No internet connection")
  }
  df <- i14y_search_catalog(query = "noga", page = 1, pageSize = 1)
  expect_s3_class(df, "data.frame")
  expect_true(nrow(df) >= 1)
})

Try the I14Y package in your browser

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

I14Y documentation built on Aug. 8, 2025, 7:23 p.m.