[R-gregmisc-users] SF.net SVN: r-gregmisc:[1806] trunk/SASxport/tests/dfAttributes.R

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

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.