R takes the wrong values in a function

Question

I have the following code, which worked up until now.

     df %>% 
      group_by(id) %>% 
      filter(between(date, start_date, start_date + 3)) %>