R如果条件在循环中有日期

Question

我想使用循环提取带有双重条件的结果（其中一个是日期）。 如果touchpoint_type等于"b"且datum [i]位于datum[i-1]之前，则将2乘以indiv_scores[i]并将其粘贴到indiv_scores2[i]中}。 我附上了代码。显然"<"存在问题。

id  datum   touchpoint_type indiv_scores    indiv_scores2
1   31.10.2017 05:09    a   1,7 1,7
2   13.10.2017 03:19    b   0,1 0,2
3   10.09.2017 14:26    a   3   3


for (i in 1:length(dataset$id)){
  if (dataset$touchpoint_type[i] == "b"){
    while (as.Date(dataset$datum[i])) < (as.Date(dataset$datum[i-1]))
    {
    dataset$indiv_scores2[i]=dataset$indiv_scores[i]*2
  } } else {
    dataset$indiv_scores2[i]=dataset$indiv_scores[i]
  }
}

非常感谢您提前