Nothing
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
)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.