синтаксис dplyr для замены всех элементов вектора после определенного значения

Question

Какой может быть синтаксис dplyr для замены всех элементов (на 0) после того, как определенное условие (x < 0) впервые достигнет

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