tests/testthat/test-getAssets.R

context("Assets only.")

t1 = getAssets(limit = 200, data.table = TRUE)
t2 = getAssets(limit = 200, data.table = FALSE)

test_that("Row numbers consolidate when returned as a list or a data table.", {
  expect_equal(nrow(t1), 200)
  expect_length(t2[['_embedded']][['records']], 200)
})

Try the stellaRbase package in your browser

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

stellaRbase documentation built on April 11, 2018, 5:03 p.m.