How to use R to reshape multiple rows to separate columns - long to wide?

Question

I have the following df,

ID  event   eventdate1     date2       date3        date4     date5  index1   index2   index3
1   before               1/22/2020  
1