tests/testthat/test-data.R

In poissonconsulting/sims: Simulate Data from R or 'JAGS' Code

test_that("sims_data", {
  skip_if_not_installed("rjags")
  
  tempdir <- file.path(tempdir(), "sims")
  unlink(tempdir, recursive = TRUE)

  withr::local_seed(2)
  expect_true(sims_simulate("a ~ dunif(0,1)",
    nsims = 10L,
    path = tempdir, save = TRUE
  ))

  data <- sims_data(tempdir)
  withr::local_seed(2)
  expect_identical(data, sims_simulate("a ~ dunif(0,1)", nsims = 10L))
})