tests/testthat/test.parallel.R

test_that("parallel runs work as planned", {
  set.seed(123)
  arrival1 <- rkiToBabsimArrivals(babsim.hospital::rkidata)

  arrival1 <- data.frame("time" = arrival1[1:1000, ])

  para <- babsimHospitalPara()
  conf <- babsimToolsConf()
  expect_error(
    {
      babsimHospital(
        arrivalTimes = arrival1,
        conf = conf,
        para = para
      )
    },
    NA
  )
})

Try the babsim.hospital package in your browser

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

babsim.hospital documentation built on May 30, 2022, 9:05 a.m.