检查数据框行中的至少一个值是否大于给定的行特定阈值

这是我正在处理的数据集的可重现的小示例：

set.seed(123)
dat <- as.data.frame( cbind(a=1+round(runif(5), 2), b=round(rnorm(5), 2), high_cutoff=round(1+rnorm(5), 1)) )

数据框为：

     a     b   high_cutoff
   1.29 -1.69         2.3
   1.79  1.24        -0.7
   1.41 -0.11         2.7
   1.88 -0.12         1.5
   1.94  0.18         3.5

我正在尝试按行检查是否在前两列中至少有一个值比在第三列中的对应阈值高（例如，如果两个值中的任何一个都高，我想存储1截止）。

在示例中，我期望找到的是：

   higher_than_cutoff         
0
1
0 
1
0

我一直在尝试使用以下（错误的）代码及其一些变体，但没有取得太大的成功：

higher_than_cutoff <- apply( dat[, c("a", "b")], 1, function(x) any(x > dat[, "high_cutoff"]) )

能否请您提供一些有关如何进行的建议？任何帮助都受到高度赞赏