R에서 재귀 함수가 작동하지 않고 이유가 없습니다.

Question

본질적으로, 가장 가까운 중첩 목록에 단일 요소로 벡터가있는 목록의 목록을 사용하는 함수를 설계하고 싶습니다. 중첩 된 목록에는 벡터가 마지막 요소로 포함됩니다.

내가하고 싶은 기능은 가장 아래에있는 각 레벨의 중첩 요소를보고 얼마나 많은 요소가 있는지 계산하는 것입니다.

예를 들어, A는 16 개의 벡터 목록, B는 10 개의 벡터 목록, C는 12 개의 벡터 목록, D는 8 개의 벡터 목록입니다. X는 A, B 및 벡터가 포함 된 목록이고 Y는 C, D 및 벡터가 포함 된 목록입니다. Z는 X, Y 및 벡터의 목록입니다.

이 함수는 Z를 취하여 46 (16 + 10 + 12 + 8)의 출력을 제공합니다. 내가 제대로 전체에 그 길이를 기여해야 더 목록을 포함하지 않는 경우에만 목록을 이해한다면

listreader <- function(listoflists) 
{ 
    nlist = listoflists 
    ini = 0 
    its = 0 
    if(length(nlist) > 1) 
    { 
    for (i in 1:(length(nlist))) 
    { 
     listreader(nlist[[i]]) 
    } 
    } 
    else 
    { 
    ini = ini+1 
    } 
    return(ini) 
} 

Answer 1

:

여기에 내가 지금 사용하고 코드입니다.

v <- 1:10        # a vector 
A <- replicate(16, v, simplify = FALSE) # a list of vectors 
B <- replicate(10, v, simplify = FALSE) # a list of vectors 
C <- replicate(12, v, simplify = FALSE) # a list of vectors 
D <- replicate(8, v, simplify = FALSE) # a list of vectors 
X <- list(A, B, v)      # a mixed list 
Y <- list(C, D, v)      # a mixed list 
Z <- list(X, Y, v)      # a mixed list 

listreader <- function(x) { 
    if (is.list(x)) { 
    if (!any(sapply(x, is.list))) { 
     return(length(x)) # list of vectors 
    } else { 
     return(sum(sapply(x, listreader))) # recursion 
    } 
    } else { 
    return(0L) # not a list 
    } 
} 

listreader(Z) 
# [1] 46 

Answer 2

sum(rapply(Z, function(x){1}))