tests/testthat/test-unnest-pv-data.R

In crew102/patentsview: An R Client to the PatentsView API

context("unnest_pv_data")

eps <- get_endpoints()

test_that("", {
  skip_on_cran()

  eps_no_loc <- eps[eps != "locations"]

  z <- lapply(eps_no_loc, function(x) {
    pv_out <- search_pv(
      query = "{\"patent_number\":\"5116621\"}", endpoint = x,
      fields = get_fields(x)
    )
    unnest_pv_data(pv_out[["data"]])
  })

  expect_true(TRUE)
})