testData/parser/r/WhileInsideIf.r

if (f1(f2(f3(x * 100) )) < 100){
  print(x)
} else while (f1(f2(f3(f4* 100))) > 100){
  for (idx in 1:(length(x) - 1)){
    if (x1[idx] != x1[idx+1]){
      diff_idx = idx
      break
    }
  }
}
}