tests/testthat/test-sections.R

context("test-sections")

test_that("sections works", {
  skip_on_cran()
  options("gu.API.key" = "test")

  sec1 <- gu_section()
  expect_true(tibble::is_tibble(sec1))
  expect_true("artanddesign" %in% sec1$id)
})

Try the guardianapi package in your browser

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

guardianapi documentation built on June 24, 2019, 1:02 a.m.