Create a 3 day HR slope column based on date column in R

Question

Data frame looks like this:

     DATE        Athlete    HR
    2020/07/31  Athlete 1   56  
    2020/07/30  Athlete 1   58  
    2020/07/29  Athlete 1   64