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

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

context("cast_pv_data")

test_that("cast_pv_data casts data types as expected", {
  skip_on_cran()

  pv_out <- search_pv(
    query = "{\"patent_number\":\"5116621\"}", fields = get_fields("patents")
  )

  dat <- cast_pv_data(data = pv_out$data)

  date <- !is.character(dat$patents$patent_date)
  num <- is.numeric(dat$patents$patent_num_claims)
  date2 <- !is.character(dat$patents$assignees[[1]]$assignee_last_seen_date[1])
  na_val <- is.na(dat$patents$patent_average_processing_time)

  expect_true(date && num && date2 && na_val)
})