Revision: 1806
http://sourceforge.net/p/r-gregmisc/code/1806
Author: warnes
Date: 2014-04-10 02:29:46 +0000 (Thu, 10 Apr 2014)
Log Message:
-----------
Update test to use new 'self' argument for label data.frame method.
Modified Paths:
--------------
trunk/SASxport/tests/dfAttributes.R
Modified: trunk/SASxport/tests/dfAttributes.R
===================================================================
--- trunk/SASxport/tests/dfAttributes.R 2014-04-10 02:11:45 UTC (rev 1805)
+++ trunk/SASxport/tests/dfAttributes.R 2014-04-10 02:29:46 UTC (rev 1806)
@@ -5,7 +5,7 @@
abc.out <- data.frame( x=c(1, 2, NA, NA ), y=c('a', 'B', NA, '*' ) )
## add a data set label (not used by R)
-label(abc.out) <- "xxxx data set xxxxx"
+label(abc.out, self=TRUE) <- "xxxx data set xxxxx"
SAStype(abc.out) <- "normal"
## add a format specifier (not used by R)
@@ -27,13 +27,16 @@
abc.in <- read.xport("dfAttributes.xpt", names.tolower=FALSE)
## Test that the files are otherwise identical
-label(abc.out, "MISSING!")
-label(abc.in , "MISSING!")
+label(abc.out, self=TRUE, "MISSING!")
+label(abc.in , self=TRUE, "MISSING!")
-SAStype(abc.out, "MISSING!")
-SAStype(abc.in , "MISSING!")
+SAStype(abc.out, self=TRUE, "MISSING!")
+SAStype(abc.in , self=TRUE, "MISSING!")
-stopifnot( label (abc.out, "MISSING!")==label (abc.in, "MISSING!") )
-stopifnot( SAStype(abc.out, "MISSING!")==SAStype(abc.in, "MISSING!") )
+stopifnot( label (abc.out, self=TRUE, "MISSING!") ==
+ label (abc.in, self=TRUE, "MISSING!") )
+stopifnot( SAStype(abc.out, "MISSING!") ==
+ SAStype(abc.in, "MISSING!") )
+
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
