Efficient summarise of different columns with different functions with dplyr

Question

The code below does exactly what I want it to do. Takes a data frame with multiple grouping constraints (ie. id and date) and returns 1 row for each with different functions