traj <- trajectory() %>%
# static values
set_prioritization(c(3, 7, TRUE)) %>%
# increment
set_prioritization(c(2, 1, 0), mod="+") %>%
# dynamic, custom
set_attribute("priority", 3) %>%
set_prioritization(function() {
prio <- get_prioritization(env)
attr <- get_attribute(env, "priority")
c(attr, prio[[2]]+1, FALSE)
})
Run the code above in your browser using DataLab