R：如何添加具有从矩阵的每一行中随机选择的值的列？

我会先说我是一个 R 菜鸟，我认为这可能有一个简单的解决方案，但我正在努力寻找它。

我有一个 2 列 1,000 行的矩阵。保持行固定，我想创建一个新变量，从两列中随机选择一个元素。例如制作一个简单的矩阵：

        matrix(c(1,1,4,6,1,3,2,1,1,7), ncol=2)

        [,1] [,2] [,3]
  [1,]    1    3    3
  [2,]    1    2    1  
  [3,]    4    1    4
  [4,]    6    1    1
  [5,]    1    7    7

在上面的简化矩阵中，第三列（我刚刚手动添加）仅包含相应行中前一列中的随机元素。我的问题是，如何在 R 中创建这样的变量？我也不一定需要在矩阵本身内创建它。

提前谢谢了。

t <- matrix(c(1,1,4,6,1,3,2,1,1,7), ncol=2)
cbind(t,apply(t,1,function(x) sample(x,size=1)))

      [,1] [,2] [,3]
[1,]    1    3    1
[2,]    1    2    2
[3,]    4    1    4
[4,]    6    1    1
[5,]    1    7    1