Nothing
context("filterResults")
test_that("filterResults", {
reg = makeTestRegistry()
batchMap(reg, function(x) x, 1:5)
submitJobs(reg)
waitForJobs(reg)
ids = filterResults(reg, fun=function(job, res) res > 3)
expect_equal(ids, c(4, 5))
ids = filterResults(reg, getJobIds(reg)[2:4], fun=function(job, res) res > 3)
expect_equal(ids, c(4))
})
test_that("filterResults works with empty results", {
reg = makeTestRegistry()
batchMap(reg, function(x) x, 1)
ids = filterResults(reg, fun=function(job, res) TRUE)
expect_equal(ids, integer(0))
})
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.