[Distr-commits] r474 - branches/distr-2.2/pkg/distr/R pkg/distr/R

noreply at r-forge.r-project.org noreply at r-forge.r-project.org
Tue Jun 16 09:20:40 CEST 2009


Author: ruckdeschel
Date: 2009-06-16 09:20:39 +0200 (Tue, 16 Jun 2009)
New Revision: 474

Modified:
   branches/distr-2.2/pkg/distr/R/internalUtils.R
   pkg/distr/R/internalUtils.R
Log:
fixed issue in .presubs after change of for() etc semantics

Modified: branches/distr-2.2/pkg/distr/R/internalUtils.R
===================================================================
--- branches/distr-2.2/pkg/distr/R/internalUtils.R	2009-06-14 22:29:51 UTC (rev 473)
+++ branches/distr-2.2/pkg/distr/R/internalUtils.R	2009-06-16 07:20:39 UTC (rev 474)
@@ -129,6 +129,7 @@
                inC <- gsub(frompat[i],totxt,inC)
            }else inC <- gsub(frompat[i], topat[[i]], inC)
          }
+      return(inC)
     })
 if (length(inCx) > 1) {
    inCx <- paste(inCx, c(rep(",", length(inCx)-1), ""),

Modified: pkg/distr/R/internalUtils.R
===================================================================
--- pkg/distr/R/internalUtils.R	2009-06-14 22:29:51 UTC (rev 473)
+++ pkg/distr/R/internalUtils.R	2009-06-16 07:20:39 UTC (rev 474)
@@ -129,6 +129,7 @@
                inC <- gsub(frompat[i],totxt,inC)
            }else inC <- gsub(frompat[i], topat[[i]], inC)
          }
+      return(inC)
     })
 if (length(inCx) > 1) {
    inCx <- paste(inCx, c(rep(",", length(inCx)-1), ""),



More information about the Distr-commits mailing list