¿Es posible usar spread en múltiples columnas en tidyr similar a dcast?

Tengo los siguientes datos ficticios:

library(dplyr)
library(tidyr)
library(reshape2)
dt <- expand.grid(Year = 1990:2014, Product=LETTERS[1:8], Country = paste0(LETTERS, "I")) %>%   select(Product, Country, Year)
dt$value <- rnorm(nrow(dt))

Elijo dos combinaciones producto-país

sdt <- dt %>% filter((Product == "A" & Country == "AI") | (Product == "B" & Country =="EI"))

y quiero ver los valores uno al lado del otro para cada combinación. Puedo hacer esto condcast:

sdt %>% dcast(Year ~ Product + Country)

¿Es posible hacer esto conspread del paquetetidyr?

Respuestas a la pregunta(1)

Su respuesta a la pregunta