as.numeric（Sys.time（））作为循环中的条件

Question

我正在尝试创建一个数据框，但我想用时间条件创建每个输入：

i=1
df=as.data.frame(matrix(c(NA), ncol =1))
while (i <= 1000){if (as.numeric(Sys.time())%%2 == 0){df[i,] <- [i]
    df$timestamp <- Sys.time()
    print(i)
    i=1+i
  }
}

但是

as.numeric(Sys.time())%%2 == 0

一直都是假的。