context("FindZebra API client")

test_that("query_fz works for a simple query", {
  NUM_ROWS <- 5
  FIELDS <- c("display_title", "retrieved_date", "source", "score")
  tester_df <- query_fz(c("muscle pain", "fatigue"),
                        num_rows = NUM_ROWS,
                        fields = FIELDS)
  expect_equal(nrow(tester_df), NUM_ROWS)
  expect_equal(ncol(tester_df), length(FIELDS))

Try the webddx package in your browser

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

webddx documentation built on May 2, 2019, 6:11 a.m.