tests/testthat/test-flatten_query.R

context("flatten_query")

test_that("flatten_query works", {
  expect_equal(flatten_query(list(statsDataId = "0003103532", cdCat01 = c("010800130","010800140"))),
               list(statsDataId = "0003103532", cdCat01 = "010800130,010800140"))
})

Try the estatapi package in your browser

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

estatapi documentation built on May 30, 2017, 2:18 a.m.