[R-gregmisc-users] SF.net SVN: r-gregmisc:[1944] trunk/gtools/R

[<wa...@us...>]

Revision: 1944
          http://sourceforge.net/p/r-gregmisc/code/1944
Author:   warnes
Date:     2015-04-23 21:06:19 +0000 (Thu, 23 Apr 2015)
Log Message:
-----------
Remove debugging code and stray browser() call

Modified Paths:
--------------
    trunk/gtools/R/smartbind.R
    trunk/gtools/R/strmacro.R

Modified: trunk/gtools/R/smartbind.R
===================================================================
--- trunk/gtools/R/smartbind.R	2015-04-23 20:21:21 UTC (rev 1943)
+++ trunk/gtools/R/smartbind.R	2015-04-23 21:06:19 UTC (rev 1944)
@@ -167,7 +167,6 @@
 
                 if(length(colClass)>1) # not just plain factor
                    {
-                     browser()
                     warning( "column '", col, "' of class ",
                             paste("'", colClass, "'", collapse=":",
                                   sep="'"),

Modified: trunk/gtools/R/strmacro.R
===================================================================
--- trunk/gtools/R/strmacro.R	2015-04-23 20:21:21 UTC (rev 1943)
+++ trunk/gtools/R/strmacro.R	2015-04-23 21:06:19 UTC (rev 1944)
@@ -22,11 +22,6 @@
         {
           a[[i]] <- a[[i]]
         }
-      #if (nn[i] == "DOTS")
-      #  {
-      #    nn[i] <- "..."
-      #    a[[i]] <- formals(function(...){})[[1]]
-      #  }
     }
   names(a) <- nn
   a <- as.list(a)
@@ -38,28 +33,12 @@
         ## build replacement list
         reptab <- a # copy defaults first
         reptab$"..." <- NULL
-        #reptab$DOTS <- ""
         
         args <- match.call(expand.dots=TRUE)[-1]
-        #print(args)
                           
         for(item in names(args))
-          ##if(item %in% names(reptab))
           reptab[[item]] <- args[[item]]
-        ##else
-        ##  {
-        ##    browser()
-        ##    oldval <- reptab[["DOTS"]]
-        ##    addval <- paste(item, "=", args[[item]])
-        ##    if(oldval>"")
-        ##      newval <- paste(c(oldval, addval), collapse=", ")
-        ##    else
-        ##      newval <- addval
-        ##    reptab[["DOTS"]] <- newval
-        ##  }
         
-        #print(reptab)
-        
         ## do the replacements
         body <- strexpr
         for(i in 1:length(reptab))
@@ -77,8 +56,6 @@
                          body)
           }
 
-        #print(body)
-        
         fun <- parse(text=body)
         eval(fun, parent.frame())
 

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.