[R-gregmisc-users] SF.net SVN: r-gregmisc:[1394] trunk/gdata/R/xls2sep.R

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

Revision: 1394
          http://r-gregmisc.svn.sourceforge.net/r-gregmisc/?rev=1394&view=rev
Author:   warnes
Date:     2010-01-24 08:06:23 +0000 (Sun, 24 Jan 2010)

Log Message:
-----------
Minor formatting change

Modified Paths:
--------------
    trunk/gdata/R/xls2sep.R

Modified: trunk/gdata/R/xls2sep.R
===================================================================
--- trunk/gdata/R/xls2sep.R	2010-01-24 07:54:36 UTC (rev 1393)
+++ trunk/gdata/R/xls2sep.R	2010-01-24 08:06:23 UTC (rev 1394)
@@ -12,7 +12,7 @@
   xls2sep(xls=xls, sheet=sheet, verbose=verbose, ..., method="tsv",
           perl=perl) 
 
-xls2sep <- function(xls, sheet = 1, verbose=FALSE, ...,
+xls2sep <- function(xls, sheet=1, verbose=FALSE, ...,
                     method=c("csv","tsv","tab"), perl="perl")
   {
     
@@ -25,7 +25,7 @@
     ##
 
     ##
-    ## files
+    ## filesheet
     tf <- NULL
     if ( substring(xls, 1, 7) == "http://" ||
          substring(xls, 1, 6) == "ftp://" )
@@ -70,8 +70,12 @@
 
     ##
     ## execution command
-    cmd <- paste(perl, script, dQuote.ascii(xls), dQuote.ascii(targetFile),
-                 dQuote.ascii(sheet), sep=" ")
+    cmd <- paste(dQuote(perl),
+                 dQuote(script),
+                 dQuote.ascii(xls),
+                 dQuote.ascii(targetFile),
+                 dQuote.ascii(sheet),
+                 sep=" ")
     ##
     ##
 
@@ -89,7 +93,7 @@
     
     ##
     ## do the translation
-    if(verbose)  cat("Executing ", cmd, "... \n\n")
+    if(verbose)  cat("Executing '", cmd, "'... \n\n")
     ##
     results <- system(cmd, intern=!verbose)
     ##


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