R: disjoint_coproducts_?