context("findJobs")
test_that("findJobs", {
reg = makeTestRegistry()
batchMap(reg, function(x) x, 10:13)
ids = findJobs(reg, pars=.arg1 > 10)
expect_equal(ids, 2:4)
reg = makeTestRegistry()
batchMap(reg, function(x) x, x=10:13)
ids = findJobs(reg, pars=x > 10)
expect_equal(ids, 2:4)
reg = makeTestRegistry()
batchExpandGrid(reg, function(x,y) x*y, x=1:2, y=10:11)
ids = findJobs(reg, pars=x == 2)
expect_true(length(ids) == 2)
ids = findJobs(reg, pars=x == 1 && y == 11)
expect_true(length(ids) == 1)
reg = makeTestRegistry()
xi = 3
batchExpandGrid(reg, function(x, y) x+y, x=1:4, y=1:4)
expect_equal(findJobs(reg, pars = (x == y)), c(1, 6, 11, 16))
expect_equal(findJobs(reg, pars = (x == xi)), c(3, 7, 11, 15))
})
test_that("findJobs with names", {
reg = makeTestRegistry()
batchMap(reg, identity, letters[1:5], use.names=TRUE)
ids = findJobs(reg, jobnames = c("b", "c", "d"))
expect_equal(ids, 2:4)
submitJobs(reg, ids)
waitForJobs(reg)
expect_equal(names(loadResults(reg, ids, use.names = "names")), c("b", "c", "d"))
setJobNames(reg, 1:5, sprintf("x%i", 1:5))
expect_equal(names(loadResults(reg, ids, use.names = "names")), c("x2", "x3", "x4"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.