feat(sim.default): export seeds to replicate results

[benesom]

No description provided.

[benesom]

devtools::load_all()
future::plan("multicore")

foo <- function() runif(1)
res <- lava::sim(foo, R = 5)

i <- 3
seeds <- attributes(res)$seeds
.Random.seed <- seeds[[i]]
foo() == res[i, ]

res1 <- lava::sim(foo, R = 5, seed = 42)
res2 <- lava::sim(foo, R = 5, seed = 42)
all(res1 == res2)

.Random.seed <- attributes(res)$seeds[[i]]
foo() == res2[i, ]

res3 <- lava::sim(foo, R = 5, seed = 41)
all(res3 != res2)

[codecov]

Codecov Report

✅ All modified and coverable lines are covered by tests.
✅ Project coverage is 73.57%. Comparing base (47660a0) to head (fde2526).
⚠️ Report is 1 commits behind head on develop.

Additional details and impacted files

@@             Coverage Diff             @@
##           develop      #21      +/-   ##
===========================================
+ Coverage    73.56%   73.57%   +0.01%     
===========================================
  Files          164      164              
  Lines        15216    15226      +10     
===========================================
+ Hits         11193    11203      +10     
  Misses        4023     4023              

☔ View full report in Codecov by Sentry.
📢 Have feedback on the report? Share it here.

🚀 New features to boost your workflow:

• ❄️ Test Analytics: Detect flaky tests, report on failures, and find test suite problems.