Carry value forward in dplyr chain

Question

Suppose I have the following column

**CurrentStatus**
Current
NoChange
NoChange
NoChange
NoChange
Late

I want to mutate it so that if the v

Answer 1

We can replace the 'NoChange' to NA and then use fill

library(tidyverse)
myDF %>%
    mutate(CurrentStatus = replace(CurrentStatus, CurrentStatus == "NoChange", NA)) %>%
    fill(CurrentStatus)
#  CurrentStatus
#1       Current
#2       Current
#3       Current
#4       Current
#5       Current
#6          Late

---

Or another option is na.locf from zoo

library(zoo)
myDF$CurrentStatus <-  with(myDF, na.locf(replace(CurrentStatus, 
              CurrentStatus == "NoChange", NA)))

Answer 2

You could use something like this:

rfwd<-function(value,trigger)
{
  c("",value)[cummax(seq_along(value)*(trigger))+1]
}

and your answer would be rfwd(CurrentStatus,CurrentStatus!="NoChange")

> rfwd(LETTERS,seq_along(LETTERS)%%10==0)
 [1] ""  ""  ""  ""  ""  ""  ""  ""  ""  "J" "J" "J" "J" "J" "J" "J" "J" "J" "J" "T" "T" "T" "T" "T" "T" "T"