重新排列数据帧长到宽，组合多个列

Question

首先让我说我是一个完全的初学者。如果我缺乏最基本的术语，请耐心等待。

这就是我要做的事情：

test <- read.table(text = "Tube Window Session Value
                            A 1 1 13
                            A 1 2 14
                            B 1 1 17
                            B 1 2 14", header = TRUE)

到

result <- read.table(text = "Window Session Tube.A.Value Tube.B.Value
                            1 1 13 17
                            1 2 14 14", header = TRUE)

我搜索了一下，发现了tidyr包。我相当确定它的spread()功能是我正在寻找的功能，但我不能让它做我需要的功能。