diff --git a/R/ds.rBinom.R b/R/ds.rBinom.R index 9b35b920..391d736f 100644 --- a/R/ds.rBinom.R +++ b/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") diff --git a/R/ds.rUnif.R b/R/ds.rUnif.R index 7bfe60e2..a2c1408c 100644 --- a/R/ds.rUnif.R +++ b/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)) +} }