在apply函数中使用ifelse时出错 - R.

Question

您好我有以下代码;

valorNegativos = function (vela) {
  for(a in 1:length(vela)) {
    apply(vela[[a]], 2,  function(col) ifelse( length(as.numeric(col) < 0) == length(vela[[a]]$FECHA), print(paste0("Correct data")), stop("ERROR: Negative values"))
  }
}

vela，是一个数据框列表。

我与此函数有关的是证明我所有数据帧中的所有列值是否为正（＆gt; 0），并检查值的数量是否等于来自一列$ FECHA的值计数（日期）。

问题是我从ifelse那里得到了两个posibilites。

[1] "Correct data"
 Show Traceback

 Rerun with Debug
 Error in ifelse(length(as.numeric(col) > 0) == length(vela[[a]]$FECHA,  : 
  ERROR: Negative values

有什么想法吗？