Loading Caret-Namespace ruft zufällige Funktion auf?

Question

Im Laden Namensraum für caret Paket, fand ich folgende Situation:

# 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 

Dies gab mir Mühe, wenn ich Komponententests Codes für einige Funktionen schreiben, in dem die caret Namespace geladen werden. Ein Beispiel hierfür ist wie folgt:

Datei R/abn.R:

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

Datei 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) 
}) 

Sie können meine Umgehungslösung sehen.

Vermisse ich etwas hier?

Gibt es einen authentischen Weg, um diese Situation zu vermeiden?

Oder diese Problemumgehung könnte Personen in ähnlichen Schwierigkeiten helfen.

Answer 1

Sie haben wirklich nichts verpasst. Die question has come up before und es bezieht sich auf einige Pakete erstellen zufällige Startmeldungen. Es hat eine Weile gedauert, bis ich es gefunden hatte.