.Random.seed not found using the RNG L'Ecuyer-CMRG

[JonasRieger]

> sessionInfo()
R version 4.1.0 (2021-05-18)
Platform: x86_64-pc-linux-gnu (64-bit)
Running under: Ubuntu 20.04.2 LTS

Matrix products: default
BLAS:   /usr/lib/x86_64-linux-gnu/blas/libblas.so.3.9.0
LAPACK: /usr/lib/x86_64-linux-gnu/lapack/liblapack.so.3.9.0

Random number generation:
 RNG:     L'Ecuyer-CMRG 
 Normal:  Inversion 
 Sample:  Rejection 

locale:
 [1] LC_CTYPE=en_US.UTF-8       LC_NUMERIC=C               LC_TIME=de_DE.UTF-8        LC_COLLATE=en_US.UTF-8    
 [5] LC_MONETARY=de_DE.UTF-8    LC_MESSAGES=en_US.UTF-8    LC_PAPER=de_DE.UTF-8       LC_NAME=C                 
 [9] LC_ADDRESS=C               LC_TELEPHONE=C             LC_MEASUREMENT=de_DE.UTF-8 LC_IDENTIFICATION=C       

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] ldaPrototype_0.3.0

loaded via a namespace (and not attached):
 [1] parallelMap_1.5.0 Rcpp_1.0.6        NLP_0.2-1         tosca_0.3-1       pillar_1.6.1      compiler_4.1.0    prettyunits_1.1.1
 [8] viridis_0.6.1     tools_4.1.0       progress_1.2.2    dendextend_1.15.1 lubridate_1.7.10  lifecycle_1.0.0   tibble_3.1.2     
[15] gtable_0.3.0      checkmate_2.0.0   viridisLite_0.4.0 pkgconfig_2.0.3   rlang_0.4.11      DBI_1.1.1         parallel_4.1.0   
[22] gridExtra_2.3     lda_1.4.2         xml2_1.3.2        dplyr_1.0.7       generics_0.1.0    vctrs_0.3.8       fs_1.5.0         
[29] hms_1.1.0         grid_4.1.0        tidyselect_1.1.1  glue_1.4.2        data.table_1.14.0 R6_2.5.0          fansi_0.5.0      
[36] ggplot2_3.3.4     purrr_0.3.4       magrittr_2.0.1    BBmisc_1.11       backports_1.2.1   scales_1.1.1      ellipsis_0.3.2   
[43] assertthat_0.2.1  colorspace_2.0-1  utf8_1.2.1        munsell_0.5.0     slam_0.1-48       tm_0.7-8          crayon_1.4.1

Under the above given setting the following error message appears when e.g. LDARep is executed: Error in (function (fun, ..., more.args = list(), simplify = FALSE, use.names = FALSE, : object '.Random.seed' not found.

There is a workaround calling set.seed before. The function itself should actually take care of this case by calling the following code:

if (!exists(".Random.seed", envir = globalenv())) {
  runif(1)
}
oldseed = .Random.seed
seeds = sample(9999999, n)
.Random.seed <<- oldseed

I don't currently know exactly why this isn't working.