Creating wide data that has only 1 ID column

I have a data frame that looks like this:

  ID Code_Type Code date 
   1   10        4    1
   1    9        5    2
   2    10       6    3
   2    9        7    4

and I would like it to look like this:

  ID date.1 date.2  9  10
   1   1        2   5  4
   2   3        4   7  6

Where the different dates have different columns on the same row.

My current code is this:

#Example df
df <- data.frame("ID" = c(1,1,2,2), 
                 "Code_Type" = c(10,9,10,9), 
                 "Code" = c(4,5,6,7),
                 "date"= c(1,2,3,4))

spread(df, Code_Type,Code)

This outputs:

  ID date   9  10
   1   1    NA  4
   1   2    5  NA
   2   3    NA  6
   2   4    7  NA

Which is similar to what I want I just have no idea how to make the date column turn into multiple columns. Any help or extra reading is appreciated.

To clarify this is my expected output data frame

  ID date.1 date.2  9  10
   1   1        2   5  4
   2   3        4   7  6

You could use reshape from base R.

reshape(dat, idvar=c("ID"), timevar="Code_Type", direction="wide")
#   ID Code.10 date.10 Code.9 date.9
# 1  1       4       1      5      2
# 3  2       6       3      7      4

Data

dat <- structure(list(ID = c(1, 1, 2, 2), Code_Type = c(10, 9, 10, 9
), Code = c(4, 5, 6, 7), date = c(1, 2, 3, 4)), class = "data.frame", row.names = c(NA, 
-4L))