преобразование матрицы к списку

Предположим, что у меня есть матрица foo следующим образом:

foo <- cbind(c(1,2,3), c(15,16,17))

> foo
     [,1] [,2]
[1,]    1   15
[2,]    2   16
[3,]    3   17

Я хотел бы превратить его в список, который похож

[[1]]
[1]  1 15

[[2]]
[1]  2 16

[[3]]
[1]  3 17

Можно сделать это следующим образом:

lapply(apply(foo, 1, function(x) list(c(x[1], x[2]))), function(y) unlist(y))

Я интересуюсь альтернативным методом, который не является как сложным. Отметьте, если Вы просто делаете apply(foo, 1, function(x) list(c(x[1], x[2]))), это возвращает список в рамках списка, которого я надеюсь избежать.