SCM

SCM Repository

[rmetrics] Diff of /pkg/randtoolbox/R/runifInterface.R
ViewVC logotype

Diff of /pkg/randtoolbox/R/runifInterface.R

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 4549, Wed Oct 28 09:22:56 2009 UTC revision 4550, Wed Oct 28 11:35:16 2009 UTC
# Line 75  Line 75 
75          {          {
76                  if (is.null(parameters))                  if (is.null(parameters))
77                  {                  {
78                            order <- as.character(dots$order)
79                            version <- as.character(dots$version)
80                          if (is.null(dots$temp))                          if (is.null(dots$temp))
81                                  dots$temp <- ""                                  dots$temp <- ""
82                          if (dots$temp == "temp")                          temp <- as.character(dots$temp)
83                                  dots$temp <- "Temp"                          if (temp == "temp")
84                          parameters <- c(order=dots$order, version=dots$version, temp=dots$temp)                                  temp <- "Temp"
85                            parameters <- c(order=order, version=version, temp=temp)
86                  }                  }
87                  if (identical(names(parameters), c("order", "version")))                  if (identical(names(parameters), c("order", "version")))
88                          parameters <- c(parameters, temp="")                          parameters <- c(parameters, temp="")

Legend:
Removed from v.4549  
changed lines
  Added in v.4550

root@r-forge.r-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business Powered By FusionForge