条件的长度> 1，只使用第一个元素

Question

我正在尝试遍历数据框中的数字字段并计算模式

   #udf for mode
getmode <- function(v) {
  uniqv <- unique(v)
  uniqv[which.max(tabulate(match(v, uniqv)))]
}

# loop through columns
for ( i in 1:ncol(qryoutp))
  {
    # check if numeric      
    if (class(qryoutp[,i])  == "numeric") 
    { 
    #calculate mode 
    abc <- getmode(qryoutp[,i])  
    print (abc)
    }
}

它发出警告信息“条件长度> 1，只使用第一个元素”。谁能告诉我如何修复错误？