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

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

Revision: 1718
          http://sourceforge.net/p/r-gregmisc/code/1718
Author:   warnes
Date:     2013-10-09 18:15:08 +0000 (Wed, 09 Oct 2013)
Log Message:
-----------
Issue: URL test2.xpt file has moved.  Solution: (1) Use local copy of file for executed examples, (2) update URL for displayed examples.

Modified Paths:
--------------
    trunk/SASxport/man/lookup.xport.Rd
    trunk/SASxport/man/read.xport.Rd

Modified: trunk/SASxport/man/lookup.xport.Rd
===================================================================
--- trunk/SASxport/man/lookup.xport.Rd	2013-10-09 17:19:31 UTC (rev 1717)
+++ trunk/SASxport/man/lookup.xport.Rd	2013-10-09 18:15:08 UTC (rev 1718)
@@ -44,21 +44,21 @@
   for \code{\link[foreign]{lookup.xport}}.
 }
 \examples{
-\dontshow{
-setwd(system.file("extdata", package="SASxport"))
 
-}
-## Get information on a local file
-lookup.xport("Alfalfa.xpt")
+## Get information about a local file
+alfFile <- system.file('extdata', 'Alfalfa.xpt', package='SASxport')
+lookup.xport(alfFile)
 
-## Or read a copy of test2.xpt available on the web:
+## Read a copy of test2.xpt available on the web:
 \dontrun{
-host <- 'http://biostat.mc.vanderbilt.edu'
-path <- '/cgi-bin/viewvc.cgi/*checkout*/Hmisc/trunk/tests/test2.xpt'
-url <- paste(host,path,sep="")
-
+url <- 'http://biostat.mc.vanderbilt.edu/wiki/pub/Main/Hmisc/test2.xpt'
 w <- lookup.xport(url)
+}
+## Or use the local copy...
+testFile <- system.file('extdata', 'test2.xpt', package="SASxport")
+w <- lookup.xport(testFile)
 
+
 # display the information (calls 'print.lookup.xport')
 w
 
@@ -74,7 +74,6 @@
 
 # variable names within all data sets
 wS$name 
-}
 
 }
 \keyword{file}

Modified: trunk/SASxport/man/read.xport.Rd
===================================================================
--- trunk/SASxport/man/read.xport.Rd	2013-10-09 17:19:31 UTC (rev 1717)
+++ trunk/SASxport/man/read.xport.Rd	2013-10-09 18:15:08 UTC (rev 1718)
@@ -128,77 +128,80 @@
 }
 \examples{
 
-# -------
-# SAS code to generate test dataset:
-# -------
-# libname y SASV5XPT "test2.xpt";
-#
-# PROC FORMAT; VALUE race 1=green 2=blue 3=purple; RUN;
-# PROC FORMAT CNTLOUT=format;RUN;  * Name, e.g. 'format', unimportant;
-# data test;
-# LENGTH race 3 age 4;
-# age=30; label age="Age at Beginning of Study";
-# race=2;
-# d1='3mar2002'd ;
-# dt1='3mar2002 9:31:02'dt;
-# t1='11:13:45't;
-# output;
-#
-# age=31;
-# race=4;
-# d1='3jun2002'd ;
-# dt1='3jun2002 9:42:07'dt;
-# t1='11:14:13't;
-# output;
-# format d1 mmddyy10. dt1 datetime. t1 time. race race.;
-# run;
-# data z; LENGTH x3 3 x4 4 x5 5 x6 6 x7 7 x8 8;
-#    DO i=1 TO 100;
-#        x3=ranuni(3);
-#        x4=ranuni(5);
-#        x5=ranuni(7);
-#        x6=ranuni(9);
-#        x7=ranuni(11);
-#        x8=ranuni(13);
-#        output;
-#        END;
-#    DROP i;
-#    RUN;
-# PROC MEANS; RUN;
-# PROC COPY IN=work OUT=y;SELECT test format z;RUN; *Creates test2.xpt;
-# ------
+## -------
+## SAS code to generate test dataset:
+## -------
+## libname y SASV5XPT "test2.xpt";
+##
+## PROC FORMAT; VALUE race 1=green 2=blue 3=purple; RUN;
+## PROC FORMAT CNTLOUT=format;RUN;  * Name, e.g. 'format', unimportant;
+## data test;
+## LENGTH race 3 age 4;
+## age=30; label age="Age at Beginning of Study";
+## race=2;
+## d1='3mar2002'd ;
+## dt1='3mar2002 9:31:02'dt;
+## t1='11:13:45't;
+## output;
+##
+## age=31;
+## race=4;
+## d1='3jun2002'd ;
+## dt1='3jun2002 9:42:07'dt;
+## t1='11:14:13't;
+## output;
+## format d1 mmddyy10. dt1 datetime. t1 time. race race.;
+## run;
+## data z; LENGTH x3 3 x4 4 x5 5 x6 6 x7 7 x8 8;
+##    DO i=1 TO 100;
+##        x3=ranuni(3);
+##        x4=ranuni(5);
+##        x5=ranuni(7);
+##        x6=ranuni(9);
+##        x7=ranuni(11);
+##        x8=ranuni(13);
+##        output;
+##        END;
+##    DROP i;
+##    RUN;
+## PROC MEANS; RUN;
+## PROC COPY IN=work OUT=y;SELECT test format z;RUN; *Creates test2.xpt;
+## ------
 
-# Read this dataset from a local file:
+## Read this dataset from a local file:
+testFile <- system.file('extdata', 'test2.xpt', package="SASxport")
+w <- read.xport(testFile)
+class(w)
+sapply(w, head)
+
 \dontrun{
-w <- read.xport('test2.xpt')
+## Or read a copy of test2.xpt available on the web:
+url <- 'http://biostat.mc.vanderbilt.edu/wiki/pub/Main/Hmisc/test2.xpt'
+w <- read.xport(url)
 }
 
-# Or read a copy of test2.xpt available on the web:
-host <- 'http://biostat.mc.vanderbilt.edu'
-path <- '/cgi-bin/viewvc.cgi/*checkout*/Hmisc/trunk/tests/test2.xpt'
-url <- paste(host,path,sep="")
+## We can also get the dataset wrapped in a list
+w <- read.xport(testfile, as.list=TRUE)
+class(w)
+sapply(w, head)
 
-w <- read.xport(url)
+## And we can ask for the format information to be included as well.
+w <- read.xport(testfile, as.list=TRUE, include.formats=TRUE)
+class(w)
+sapply(w, head)
 
-
-# We can also get the dataset wrapped in a list
-w <- read.xport(url, as.list=TRUE)
-
-# And we can ask for the format information to be included as well.
-w <- read.xport(url, as.list=TRUE, include.formats=TRUE)
-
 \dontshow{
-SASxport:::assert( is.data.frame(w)==FALSE && is.list(w)==TRUE )
+stopifnot( is.data.frame(w)==FALSE && is.list(w)==TRUE )
 }
 
 
 \dontrun{
-## The Hmisc library provides many useful functions for interacting with
-## data imported from SAS via read.xport()
+#### The Hmisc library provides many useful functions for interacting with
+#### data imported from SAS via read.xport()
 library(Hmisc)
 
 describe(w$test)   # see labels, format names for dataset test
-lapply(w, describe)# see descriptive stats in more detaiil for each variable
+lapply(w, describe)# see descriptive stats in more detail for each variable
 
 contents(w$test)   # another way to see variable attributes
 lapply(w, contents)# show contents of individual items in more detail

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