R：在函數調用中創建隨機數

Question

假設我具有以下功能，

foo <- function(x) {
  lapply(seq(sample(1:5,1)), function(y) x)
}

假設我這樣做，

foo(runif(1))

我得到以下結果，

[[1]]
[1] 0.5354641
[[2]]
[1] 0.5354641

或其他一些隨機數。 我想要的是有兩個不同的數字作為輸出。 這可能嗎？ 換句話說，我想

[[1]]
[1] 0.5354641
[[2]]
[1] 0.2895715

所以我想知道我可以寫一個像

bar <- function(x) {
    rand <- function() {
        runif(x)
    }
}

並像foo(bar(1))這樣調用它以獲得所需的結果？

Answer 1

實際上，這幾乎可行

bar <- function(x) {
    rand <- function() {
        runif(x)
    }
}

然后，

foo <- function(x) {
  lapply(seq(sample(1:5,1)), function(y) x)
}

並調用foo(bar(1)) 。