if (FALSE) {
# < v8.7.0 :
removeBindingConstraint(name = "mybindingconstraint")
# >= v8.7.0 (delete by names group) :
# read
bc <- readBindingConstraints()
# select all groups
group_to_delete <- sapply(bc, function(x){
x$properties$group
})
# delete all groups
removeBindingConstraint(group = group_to_delete)
}
Run the code above in your browser using DataLab