Загрузка пространства имен каретки вызывает случайную функцию?

Question

В погрузочных именах для caret пакета, я нашел следующую ситуацию:

# 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 

Это дало мне неприятности, когда я пишу юнит-тестированию кодов для некоторых функций, в который загружаются caret пространство имен. Примером может служить следующее:

Файл R/abn.R:

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

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

Вы можете увидеть мой обходной путь решения.

Я пропустил что-то здесь?

Есть ли аутентичный способ избежать этой ситуации?

Или это обходное решение может помочь людям в подобных проблемах.

Answer 1

Вы ничего не пропустили. question has come up before, и это связано с некоторыми пакетами, создающими случайные стартовые сообщения. Мне потребовалось некоторое время, чтобы изначально выследить его.