基本的に、リストのリストのリストを取得する関数を設計したいと考えています...最終的には、最も遠くにネストされたリストが単一の要素としてベクトルを持ち、ネストされている各リストが最後の要素としてベクトルを持ちます。
関数に実行させたいのは、最下位レベルのネストされた要素のそれぞれを見て、その数を数えることです。
たとえば、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)
}