摆脱列表中的空元素

Question

我有一个列表，其元素是数据帧。

我想摆脱没有观察的元素，如我编写的以下代码，但它始终返回“ DATA [[i]]中的错误：下标超出范围”，希望有任何建议（不仅让他们这样做）不显示，而是将其从列表中删除）

repeat{
  if(nrow(DATA[[i]]) != 0){
    i+1
  }
  else{
    DATA[[i]] <- NULL
  }
  if(i == length(DATA)) {
    break
  }
}