如何从expand.grid函数中筛选记录？

我有一个数据集：

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)

如果我使用上面的脚本，它将创建所有组合。但我需要的组合，可以使所需的总数

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

---

我该怎么做

你只想要combins[combins$total==250，]？我不想单独做。在创建这些组合时，它应该只保留这些组合。