Пустые числовые векторы после цикла

Question

У меня есть список из 300 + таблиц в списке, и я пытаюсь подсчитать количество раз, когда в таблице нет строк.

Так цикл я бегу, чтобы сделать так:

> while (i < 333) { 
    b <- b + (nrow(allInfo[[i]])==0) 
    i <- i + 1 
} 

Я поставил я на 1 и попытался установить б как к 0, а также b <- vector("numeric", 1L) и попытался установить его в «целое». В конце цикла b заканчивается значением «numeric (empty)», и я не смог это понять.

Могу ли я, пожалуйста, получить помощь, почему это так?

Answer 1

сделать ответ этого

while (i < 333) { 
    b <- b + (nrow(as.data.frame(allInfo[[i]]))==0) 
    i <- i + 1 
} 

Рича является лучшим.

Answer 2

Кажется, вы можете что-то же просто, как

sum(sapply(allInfo, nrow) == 0) 

Это захватывает количество строк каждого элемента в списке, возвращается в виде атомного вектора. Затем мы можем определить число тех, которые равны нулю, и суммировать полученный логический вектор (поскольку целочисленное представление TRUE равно 1).