Running ‘PairedPSCBS,boot.R’ [3s/5s]
  Running ‘findLargeGaps.R’ [1s/2s]
  Running ‘randomSeed.R’ [1s/2s]
  Running ‘segmentByCBS,calls.R’ [0s/1s]
  Running ‘segmentByCBS,futures.R’ [3s/13s]
  Running ‘segmentByCBS,median.R’ [2s/4s]
  Running ‘segmentByCBS,prune.R’ [2s/3s]
  Running ‘segmentByCBS,report.R’ [0s/1s]
  Running ‘segmentByCBS,shiftTCN.R’ [12s/21s]
  Running ‘segmentByCBS,weights.R’ [4s/8s]
  Running ‘segmentByCBS.R’ [4s/6s]
  Running ‘segmentByNonPairedPSCBS,medianDH.R’ [3s/6s]
  Running ‘segmentByPairedPSCBS,DH.R’ [4s/6s]
  Running ‘segmentByPairedPSCBS,calls.R’ [6s/8s]
  Running ‘segmentByPairedPSCBS,futures.R’ [9s/24s]
  Running ‘segmentByPairedPSCBS,noNormalBAFs.R’ [4s/7s]
  Running ‘segmentByPairedPSCBS,report.R’ [0s/1s]
  Running ‘segmentByPairedPSCBS,seqOfSegmentsByDP.R’ [7s/12s]
  Running ‘segmentByPairedPSCBS.R’ [8s/13s]
  Running ‘weightedQuantile.R’ [3s/7s]
Running the tests in ‘tests/randomSeed.R’ failed.
Complete output:
  > library("PSCBS")
  PSCBS v0.66.0 (2021-10-23 07:40:02 UTC) successfully loaded. See ?PSCBS for help.
  
  Attaching package: 'PSCBS'
  
  The following objects are masked from 'package:base':
  
      append, load
  
  > 
  > message("*** randomSeed() - setup ...")
  *** randomSeed() - setup ...
  > ovars <- ls(envir=globalenv())
  > genv <- globalenv()
  > RNGkind("Mersenne-Twister")
  > if (exists(".Random.seed", envir=genv, inherits=FALSE))
  +   rm(list=".Random.seed", envir=genv, inherits=FALSE)
  > seed0 <- genv$.Random.seed
  > stopifnot(is.null(seed0))
  > okind0 <- RNGkind()[1L]
  > 
  > sample1 <- function() { sample(0:9, size=1L) }
  > message("*** randomSeed() - setup ... done")
  *** randomSeed() - setup ... done
  > 
  > 
  > message("*** randomSeed('get') ...")
  *** randomSeed('get') ...
  > ## Get random seed
  > seed <- randomSeed("get")
  > stopifnot(identical(seed, seed0))
  > 
  > ## Repeat after new sample
  > y1 <- sample1()
  > message(sprintf("Random number: %d", y1))
  Random number: 4
  > seed1 <- randomSeed("get")
  > stopifnot(!identical(seed1, seed0))
  > message("*** randomSeed('get') ... done")
  *** randomSeed('get') ... done
  > 
  > 
  > message("*** randomSeed('set', 42L) ...")
  *** randomSeed('set', 42L) ...
  > randomSeed("set", seed=42L)
  > seed2 <- randomSeed("get")
  > stopifnot(!identical(seed2, seed1))
  > 
  > y2 <- sample1()
  > message(sprintf("Random number: %d (with random seed = 42L)", y2))
  Random number: 0 (with random seed = 42L)
  > 
  > ## Reset to previous state
  > randomSeed("reset")
  > seed3 <- randomSeed("get")
  > stopifnot(identical(seed3, seed1))
  Error: identical(seed3, seed1) is not TRUE
  Execution halted