[R-gregmisc-users] SF.net SVN: r-gregmisc: [1187] trunk/SASxport

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

Revision: 1187
          http://r-gregmisc.svn.sourceforge.net/r-gregmisc/?rev=1187&view=rev
Author:   warnes
Date:     2007-09-14 23:17:40 -0700 (Fri, 14 Sep 2007)

Log Message:
-----------
Improve formatting for pdf output

Modified Paths:
--------------
    trunk/SASxport/man/SASxport-package.Rd
    trunk/SASxport/man/lookup.xport.Rd
    trunk/SASxport/man/read.xport.Rd
    trunk/SASxport/man/toSAS.Rd
    trunk/SASxport/tests/TestUnnamedComponents.Rout.save

Modified: trunk/SASxport/man/SASxport-package.Rd
===================================================================
--- trunk/SASxport/man/SASxport-package.Rd	2007-09-15 05:06:26 UTC (rev 1186)
+++ trunk/SASxport/man/SASxport-package.Rd	2007-09-15 06:17:40 UTC (rev 1187)
@@ -53,7 +53,7 @@
 \author{
   Unless otherwise noted, the contents of this package were written by
   Gregory R. Warnes \email{gr...@ra...}, are
-  Copyright (c) 2007 by Random Technologies LLC
+  Copyright (c) 2007 by Random Technologies LLC \cr
   \url{http://random-technologies-llc.com}, and are provided under the
   terms of the GNU General Public License, version 2.0 or later. 
 

Modified: trunk/SASxport/man/lookup.xport.Rd
===================================================================
--- trunk/SASxport/man/lookup.xport.Rd	2007-09-15 05:06:26 UTC (rev 1186)
+++ trunk/SASxport/man/lookup.xport.Rd	2007-09-15 06:17:40 UTC (rev 1187)
@@ -52,7 +52,10 @@
 
 ## Or read a copy of test2.xpt available on the web:
 \dontrun{
-url <- 'http://biostat.mc.vanderbilt.edu/cgi-bin/viewvc.cgi/*checkout*/Hmisc/trunk/tests/test2.xpt'
+host <- 'http://biostat.mc.vanderbilt.edu'
+path <- '/cgi-bin/viewvc.cgi/*checkout*/Hmisc/trunk/tests/test2.xpt'
+url <- paste(host,path,sep="")
+
 w <- lookup.xport(url)
 
 # display the information (calls 'print.lookup.xport')

Modified: trunk/SASxport/man/read.xport.Rd
===================================================================
--- trunk/SASxport/man/read.xport.Rd	2007-09-15 05:06:26 UTC (rev 1186)
+++ trunk/SASxport/man/read.xport.Rd	2007-09-15 06:17:40 UTC (rev 1187)
@@ -161,7 +161,10 @@
 
 
 # Or read a copy of test2.xpt available on the web:
-url <- 'http://biostat.mc.vanderbilt.edu/cgi-bin/viewvc.cgi/*checkout*/Hmisc/trunk/tests/test2.xpt'
+host <- 'http://biostat.mc.vanderbilt.edu'
+path <- '/cgi-bin/viewvc.cgi/*checkout*/Hmisc/trunk/tests/test2.xpt'
+url <- paste(host,path,sep="")
+
 w <- read.xport(url)
 
 

Modified: trunk/SASxport/man/toSAS.Rd
===================================================================
--- trunk/SASxport/man/toSAS.Rd	2007-09-15 05:06:26 UTC (rev 1186)
+++ trunk/SASxport/man/toSAS.Rd	2007-09-15 06:17:40 UTC (rev 1187)
@@ -91,7 +91,8 @@
 ## Create a new conversion function to store as a RGB hex value
 toSAS.colorFactor <- function(x, format="")
 {
-   retval <- ifelse(x=="Red", "#FF0000", ifelse(x=="Green", "#00FF00", "#0000FF") )
+   retval <- ifelse(x=="Red", "#FF0000",
+                    ifelse(x=="Green", "#00FF00", "#0000FF") )
    attr(retval, "format") <- format
    retval
 }

Modified: trunk/SASxport/tests/TestUnnamedComponents.Rout.save
===================================================================
--- trunk/SASxport/tests/TestUnnamedComponents.Rout.save	2007-09-15 05:06:26 UTC (rev 1186)
+++ trunk/SASxport/tests/TestUnnamedComponents.Rout.save	2007-09-15 06:17:40 UTC (rev 1187)
@@ -67,8 +67,12 @@
 rd.xpr> ## End(Not run)
 rd.xpr> 
 rd.xpr> # Or read a copy of test2.xpt available on the web:
-rd.xpr> url <- 'http://biostat.mc.vanderbilt.edu/cgi-bin/viewvc.cgi/*checkout*/Hmisc/trunk/tests/test2.xpt'
+rd.xpr> host <- 'http://biostat.mc.vanderbilt.edu'
 
+rd.xpr> path <- '/cgi-bin/viewvc.cgi/*checkout*/Hmisc/trunk/tests/test2.xpt'
+
+rd.xpr> url <- paste(host,path,sep="")
+
 rd.xpr> w <- read.xport(url)
 
 rd.xpr> # We can also get the dataset wrapped in a list
@@ -420,8 +424,12 @@
 rd.xpr> ## End(Not run)
 rd.xpr> 
 rd.xpr> # Or read a copy of test2.xpt available on the web:
-rd.xpr> url <- 'http://biostat.mc.vanderbilt.edu/cgi-bin/viewvc.cgi/*checkout*/Hmisc/trunk/tests/test2.xpt'
+rd.xpr> host <- 'http://biostat.mc.vanderbilt.edu'
 
+rd.xpr> path <- '/cgi-bin/viewvc.cgi/*checkout*/Hmisc/trunk/tests/test2.xpt'
+
+rd.xpr> url <- paste(host,path,sep="")
+
 rd.xpr> w <- read.xport(url)
 
 rd.xpr> # We can also get the dataset wrapped in a list
@@ -508,8 +516,12 @@
 rd.xpr> ## End(Not run)
 rd.xpr> 
 rd.xpr> # Or read a copy of test2.xpt available on the web:
-rd.xpr> url <- 'http://biostat.mc.vanderbilt.edu/cgi-bin/viewvc.cgi/*checkout*/Hmisc/trunk/tests/test2.xpt'
+rd.xpr> host <- 'http://biostat.mc.vanderbilt.edu'
 
+rd.xpr> path <- '/cgi-bin/viewvc.cgi/*checkout*/Hmisc/trunk/tests/test2.xpt'
+
+rd.xpr> url <- paste(host,path,sep="")
+
 rd.xpr> w <- read.xport(url)
 
 rd.xpr> # We can also get the dataset wrapped in a list
@@ -645,8 +657,12 @@
 rd.xpr> ## End(Not run)
 rd.xpr> 
 rd.xpr> # Or read a copy of test2.xpt available on the web:
-rd.xpr> url <- 'http://biostat.mc.vanderbilt.edu/cgi-bin/viewvc.cgi/*checkout*/Hmisc/trunk/tests/test2.xpt'
+rd.xpr> host <- 'http://biostat.mc.vanderbilt.edu'
 
+rd.xpr> path <- '/cgi-bin/viewvc.cgi/*checkout*/Hmisc/trunk/tests/test2.xpt'
+
+rd.xpr> url <- paste(host,path,sep="")
+
 rd.xpr> w <- read.xport(url)
 
 rd.xpr> # We can also get the dataset wrapped in a list
@@ -657,7 +673,7 @@
 
 rd.xpr> ## Don't show: 
 rd.xpr> SASxport:::assert( is.data.frame(w)==FALSE && is.list(w)==TRUE )
-> colnames(w[[2]]) <- c()
+> colnames(w[[2]]) <- rep("", length=ncol(w[[2]]))
 > write.xport(list=w,file="a.xpt")
 Warning message:
 Unnamed variables detected, using default names in: write.xport(list = w, file = "a.xpt") 


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