如何从expand.grid函数中过滤记录？

Question

我有一个数据集：

set.seed(1234)
data = list(A=sort(sample(10:30,2,F)), B=sort(sample(40:60,2,F)), 
            D=sort(sample(60:80,2,F)), E=sort(sample(100:200,2,F)))

使用此数据集我想创建一个可以提供所需总数的所有组合的数据集。

这是我的代码：

combins = expand.grid(data)
combins$total = rowSums(combins)

如果我使用上面的脚本，则会创建所有组合。但是我需要能够达到所需总量的组合。

在“组合”中，我想保留可以给出“总数”= 250的组合。 见第7条记录。我只想保留那条记录。

我该怎么做？