シードをローカルに設定する（グローバルではない）R

Question

シードをRでローカルに（関数内で）設定したいが、Rはローカルだけでなくグローバルにもシードを設定するようだ。ここで私が何をしようとしているのかの簡単な例があります。

myfunction <- function() { 
    set.seed(2) 
} 

# now, whenever I run the two commands below I'll get the same answer 
myfunction() 
runif(1) 

私の質問には次のようなものがあります。なぜRは自分の関数内だけでなく、グローバルにシードを設定するのですか？そして私はRを私の機能の中だけに種子を置くようにすることができますか？このような

Answer 1

何かが私のためにそれをしない：

よりエレガントに

myfunction <- function() { 
    old <- .Random.seed 
    set.seed(2) 
    res <- runif(1) 
    .Random.seed <<- old 
    res 
} 

それとも：たとえば

myfunction <- function() { 
    old <- .Random.seed 
    on.exit({ .Random.seed <<- old }) 
    set.seed(2) 
    runif(1) 
} 

：

> myfunction() 
[1] 0.1848823 
> runif(1) 
[1] 0.3472722 
> myfunction() 
[1] 0.1848823 
> runif(1) 
[1] 0.4887732