allow output of `runRole` to be input of subsequent call to `runRole`

[ajrominger]

Something like this:

p <- roleParams()

m <- roleModel(p)

# first batch
r1 <- runRole(m)

# 2nd batch
r2 <- runRole(r1)

# 3rd batch
r3 <- runRole(r2)

# keep going.....