行列を１行ずつリストに変換する

行列を１行ずつリストに変換したいという非常にニッチなニーズがあり、少し苦労したのでコードをメモ。

lapply(seq_len(nrow(mat)), function(i) mat[i,])