Create a time to and time after event variables

Question

I am working on panel data that looks like this:

d <- data.frame(id = c("a", "a", "a", "a", "a", "b"