通过条件检查提高循环操作的速度，并在R中创建对象

我的目标是检查数据框中单元格值的条件，并将返回值存储在新变量的单元格中。我已经在R中使用下面的代码来实现相同的目的。但是，该过程非常缓慢，需要数小时才能获得最终结果。如何修改下面的代码以提高处理速度？

在下面的代码k中：行号DF3：数据帧

R1 <- seq(1, 2296800, 1)
for (k in seq_along(R1)){
  if(DF3[k,6]>0){
    DF3$Slack=DF3[k,6]
  } else {
    DF3$Slack=0
  }
}