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 June 8, 2025, 9:41 p.m.