Nothing
context("microbenchmark")
test_that("microbenchmark test for simtimer package.", {
# skip("Skip for development of tests")
skip_on_cran()
t1 <- summary(microbenchmark::microbenchmark(
sim_wday(24*60*60, origin_date),
times = 10L, unit = "us"))$uq
expect_equal(t1 < t_500us, T)
})
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.