fix: re-seed only when specified

current approach without else statement will always re-seed when no seed
value provided, making it impossible to get reproducible results

Author: ESCRI11

R/ds.rBinom.R

@@ -211,10 +211,11 @@ single.integer.seed<-c(single.integer.seed,seed.as.integer.study.specific)
 if(seed.as.text=="NULL"){
 cat("NO SEED SET IN STUDY",study.id,"\n\n")
 
-}
+} else {
   calltext <- paste0("setSeedDS(", seed.as.text, ")")
   ssDS.obj[[study.id]] <- DSI::datashield.aggregate(datasources[study.id], as.symbol(calltext))
 }
+}
 cat("\n\n")
 
 

R/ds.rUnif.R

@@ -230,9 +230,10 @@ single.integer.seed<-c(single.integer.seed,seed.as.integer.study.specific)
 if(seed.as.text=="NULL"){
 cat("NO SEED SET IN STUDY",study.id,"\n")
 
-}
+} else {
   calltext <- paste0("setSeedDS(", seed.as.text, ")")
   ssDS.obj[[study.id]] <- DSI::datashield.aggregate(datasources[study.id], as.symbol(calltext))
+}
 }