tests/testthat/test-nsims.R

test_that("", {
  expect_identical(nsims(nlist()), 1L)
  expect_identical(nsims(nlist(x = 1)), 1L)
})

test_that("", {
  expect_identical(nsims(nlists()), 0L)
  expect_identical(nsims(nlists(nlist())), 1L)
  expect_identical(nsims(nlists(nlist(), nlist())), 2L)
})

Try the nlist package in your browser

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

nlist documentation built on Sept. 5, 2021, 6:05 p.m.