addExperiments a second time works not like expected with combine = "bind"

[jakob-r]

trafficstars

Look at the following example

library(batchtools)

reg = makeExperimentRegistry(file.dir = NA)

addProblem("names", data = list(), fun = function(name, ...) return(name))
pdes = list(names = data.frame(name = c("homer", "marge")))
addAlgorithm("combine", fun = function(job, data, instance, family) paste(instance, family, job$repl))
ades = list(combine = data.frame(family = "simpons"))
addExperiments(pdes, ades, repls = 2L)


pdes2 = list(names = data.frame(name = "ned"))
ades2 = list(combine = data.frame(family = "flanders"))
addExperiments(pdes2, ades2, repls = 2L, combine = "bind")

submitJobs()
reduceResultsList()

Now we have ned flanders 4 times. Instead I would expect it 2 times.