I am trying to pivot my df like this:
pivot_df <- df %>% mutate(days = round(days,0)) %>% filter(days < 45) %>% pivot_wider(names_from