使用基本的R脚本查找总和为特定数字的所有组合

Question

我是R的新手，并且希望在以下向量中找到总计为5000的元素的所有可能组合，而不使用任何包。

我制作了以下向量：

x <- c(1, 50, 100, 200, 500, 1000)

我首先使用函数combn，但是此函数仅允许使用特定数量的整数。

objective <- 5000 #Defining the value I want the combinations to be equal

combinations <- combn(rep(x, 6), 6) #Combination with 6 integers

combination_sum <- combinations[,colSums(combinations)==objective] #summing for combinations equal to 5000

但是，这样做只能得到我选择的n个整数的和，但是我想要所有不同种类的组合。 有谁对如何找到总和等于5000的所有组合有任何建议？