Rの基本機能ができません

Question

数値のリストを取得する関数です。関数は、新しい要素の合計が42

Answer 1

list <- list(1,2,3,4,5,6,7,8,9,10,1,2,3,4,5,6,7,8,9,10,1,2,3,4,5,6,7,8,9,10) 
list 

get_elements_func <- function(list, max){ 

    sum_vector <- 0 

    for(i in 1:length(list)){ 

     sum_vector <- rbind(sum_vector, list[[i]]) 

     if(sum(sum_vector) >= max){ 

      i <- i - 1 
      break 
     } 
    } 

    return(list[1:i]) 
} 

get_elements_func(list, 42)