dplyr语法可在确定值后替换向量的所有元素

Question

在某个条件（0）首次到达后，用x < 0替换所有元素的dplyr语法是什么

x <- c(1, 2, 4, -1, 1, 3)
if(any(x < 0)) x[min(which(x < 0)):length(x)] <- 0
> x
[1] 1 2 4 5 0 0 0