Chargement espace de noms caret invoque une fonction aléatoire?

Question

Dans l'espace de noms de chargement pour le paquet caret, je trouve la situation suivante:

# 1. 
set.seed(1) 
print(rnorm(1))   # -0.6264538 

# 2. Restart R session 

# 3. 
set.seed(1) 
loadNamespace('caret') 
print(rnorm(1))   # -0.3262334 

# 4. Restart R session 

# 5. 
loadNamespace('caret') 
set.seed(1) 
loadNamespace('caret') 
print(rnorm(1))   # -0.6264538 

Cela m'a donné du mal quand j'écris tests unitaires codes pour certaines fonctions dans lesquelles l'espace de noms caret est chargé. Un exemple est le suivant:

fichier R/abn.R:

abn <- function(){ 
    requireNamespace('caret') 
    round(rnorm(1), 5) 
} 

fichier tests/testthat/test_abn.R:

context("Test abnomality") 

test_that("Anomaly situation", { 
    requireNamespace('caret') # Without this line, devtools::check() will fail 
          # abn() not equal to -0.62645. 
          # 1/1 mismatches 
          # [1] -0.326 - -0.626 == 0.3 
    set.seed(1) 
    expect_equal(abn(), -0.62645) 
}) 

Vous pouvez voir ma solution de contournement.

Quelque chose me manque ici?

Existe-t-il un moyen authentique d'éviter cette situation?

Ou, cette solution de contournement peut aider les personnes ayant des problèmes similaires.

Answer 1

Vous n'avez vraiment rien manqué. Le question has come up before et il est lié à certains paquets créent des messages de démarrage aléatoires. Il m'a fallu un certain temps pour le retrouver à l'origine.