总数列表直到阈值

我有一个整数列表，我想要对其求和直到达到阈值，然后才能访问达到阈值的索引。

就像是：

summing <- function(i){
sum = sum + list[i]
index = i
while(sum < thresholdValue){
summing(i++)
}}

但是，我并不精通R中的编写函数，因此不能百分百确定应该如何完成。

试试这个例子：

#data
x <- 1:10 

#set threshold
thresholdValue <- 13

#index
ix <- length(which(cumsum(x) <= thresholdValue))
# 4

#sum
sum(x[1:ix])
#[1] 10