如何在dplyr pipline中使用sample和seq？

Question

我有一个包含两列的数据帧，低和高。我想使用dplyr创建一个新的变量，它是一个在低和高(包含和相等概率)之间随机选择的值。我试过了

library(tidyverse)

data_frame(low = 1:10, high = 11) %>% 
    mutate(rand_btwn = base::sample(seq(low, high, by = 1), size = 1))

这给了我一个错误，因为seq需要标量参数。

然后，我再次尝试使用seq的矢量化版本

seq2 <- Vectorize(seq.default, vectorize.args = c("from", "to"))

data_frame(low = 1:10, high = 11) %>% 
    mutate(rand_btwn = base::sample(seq2(low, high, by = 1), size = 1))

但这也没有给我想要的结果。