r - 如何识别循环中操作的警告生成实例？

Question

基于此solution ，我制定了以下代码来对 33 个变量执行 chisq.test。

sapply(Indices,function(i){
  chisq.test(data.cleaned[,i],data.cleaned$Out)$p.value })

此代码产生 9 条警告，希望是由于违反了对 chisq.test 所做的假设。我想确定发出警告的 i 实例是什么？

我认为初学者不需要针对这个简单问题的可重现示例。

Answer 1

我生成这个例子来重现这个问题:

df <- data.frame(x=rep(c("a","b"), 22))

options(warn=1)

sapply(1:nrow(df), function(i){
  df[i,"x"] <- letters[round(rnorm(1,mean=2, sd = .5),0)]
  print (i)
})

with options(warn=1) 出现时打印警告。 (来自Andrie answer) print(i) 告诉我它是在哪次迭代中生成的。