[R-gregmisc-users] SF.net SVN: r-gregmisc:[1665] trunk/SASxport/tests
Brought to you by:
warnes
Menu
▾
▴
[R-gregmisc-users] SF.net SVN: r-gregmisc:[1665] trunk/SASxport/tests
|
From: <wa...@us...> - 2013-05-31 03:53:52
|
Revision: 1665
http://sourceforge.net/p/r-gregmisc/code/1665
Author: warnes
Date: 2013-05-31 03:53:49 +0000 (Fri, 31 May 2013)
Log Message:
-----------
Explicitly specify timezone in tests/*.R to avoid extraneous warnings
Modified Paths:
--------------
trunk/SASxport/tests/Alfalfa_Test.R
trunk/SASxport/tests/Alfalfa_Test.Rout.save
trunk/SASxport/tests/Theoph.R
trunk/SASxport/tests/Theoph.Rout.save
trunk/SASxport/tests/cars.R
trunk/SASxport/tests/cars.Rout.save
trunk/SASxport/tests/dfAttributes.R
trunk/SASxport/tests/testBlockBoundary.R
trunk/SASxport/tests/testDates.R
trunk/SASxport/tests/testDates.Rout.save
trunk/SASxport/tests/testDuplicateNames.R
trunk/SASxport/tests/testDuplicateNames.Rout.save
trunk/SASxport/tests/testFactorAllNA.R
trunk/SASxport/tests/testManyNames.R
trunk/SASxport/tests/testManyNames.Rout.save
trunk/SASxport/tests/testNegative.R
trunk/SASxport/tests/testNegative.Rout.save
trunk/SASxport/tests/testNumeric.R
trunk/SASxport/tests/testNumeric.Rout.save
trunk/SASxport/tests/testUnnamedComponents.R
trunk/SASxport/tests/testUnnamedComponents.Rout.save
trunk/SASxport/tests/test_as_is.R
trunk/SASxport/tests/test_as_is.Rout.save
trunk/SASxport/tests/test_fields.R
trunk/SASxport/tests/test_fields.Rout.save
trunk/SASxport/tests/xport.R
trunk/SASxport/tests/xport.Rout.save
trunk/SASxport/tests/xxx.R
trunk/SASxport/tests/xxx.Rout.save
Modified: trunk/SASxport/tests/Alfalfa_Test.R
===================================================================
--- trunk/SASxport/tests/Alfalfa_Test.R 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/Alfalfa_Test.R 2013-05-31 03:53:49 UTC (rev 1665)
@@ -2,6 +2,7 @@
## existing SAS xport file "Alfalfa.xpt"
library(SASxport)
+Sys.setenv("TZ"="GMT")
# existing data file
SPEC <- read.xport("Alfalfa.xpt")
Modified: trunk/SASxport/tests/Alfalfa_Test.Rout.save
===================================================================
--- trunk/SASxport/tests/Alfalfa_Test.Rout.save 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/Alfalfa_Test.Rout.save 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,5 +1,5 @@
-R version 3.0.0 (2013-04-03) -- "Masked Marvel"
+R version 3.0.1 (2013-05-16) -- "Good Sport"
Copyright (C) 2013 The R Foundation for Statistical Computing
Platform: i686-pc-linux-gnu (32-bit)
@@ -24,6 +24,7 @@
Type `?SASxport' for usage information.
+> Sys.setenv("TZ"="GMT")
>
> # existing data file
> SPEC <- read.xport("Alfalfa.xpt")
@@ -46,4 +47,4 @@
>
> proc.time()
user system elapsed
- 0.940 0.052 0.985
+ 0.936 0.088 1.015
Modified: trunk/SASxport/tests/Theoph.R
===================================================================
--- trunk/SASxport/tests/Theoph.R 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/Theoph.R 2013-05-31 03:53:49 UTC (rev 1665)
@@ -4,6 +4,7 @@
####
library(SASxport)
+Sys.setenv("TZ"="GMT")
write.xport(Theoph,file="theoph.xpt")
Theoph.2 <- read.xport("theoph.xpt")
Modified: trunk/SASxport/tests/Theoph.Rout.save
===================================================================
--- trunk/SASxport/tests/Theoph.Rout.save 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/Theoph.Rout.save 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,5 +1,5 @@
-R version 3.0.0 (2013-04-03) -- "Masked Marvel"
+R version 3.0.1 (2013-05-16) -- "Good Sport"
Copyright (C) 2013 The R Foundation for Statistical Computing
Platform: i686-pc-linux-gnu (32-bit)
@@ -26,6 +26,7 @@
Type `?SASxport' for usage information.
+> Sys.setenv("TZ"="GMT")
>
> write.xport(Theoph,file="theoph.xpt")
> Theoph.2 <- read.xport("theoph.xpt")
@@ -42,4 +43,4 @@
>
> proc.time()
user system elapsed
- 1.632 0.084 1.705
+ 1.668 0.080 1.773
Modified: trunk/SASxport/tests/cars.R
===================================================================
--- trunk/SASxport/tests/cars.R 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/cars.R 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,4 +1,5 @@
library(SASxport)
+Sys.setenv("TZ"="GMT")
cars <- read.table(file="cars.sas", skip=3, nrows=26,
Modified: trunk/SASxport/tests/cars.Rout.save
===================================================================
--- trunk/SASxport/tests/cars.Rout.save 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/cars.Rout.save 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,5 +1,5 @@
-R version 3.0.0 (2013-04-03) -- "Masked Marvel"
+R version 3.0.1 (2013-05-16) -- "Good Sport"
Copyright (C) 2013 The R Foundation for Statistical Computing
Platform: i686-pc-linux-gnu (32-bit)
@@ -21,6 +21,7 @@
Type `?SASxport' for usage information.
+> Sys.setenv("TZ"="GMT")
>
>
> cars <- read.table(file="cars.sas", skip=3, nrows=26,
@@ -63,4 +64,4 @@
>
> proc.time()
user system elapsed
- 0.904 0.096 0.998
+ 0.976 0.084 1.064
Modified: trunk/SASxport/tests/dfAttributes.R
===================================================================
--- trunk/SASxport/tests/dfAttributes.R 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/dfAttributes.R 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,4 +1,5 @@
library(SASxport)
+Sys.setenv("TZ"="GMT")
## manually create a data set
abc.out <- data.frame( x=c(1, 2, NA, NA ), y=c('a', 'B', NA, '*' ) )
Modified: trunk/SASxport/tests/testBlockBoundary.R
===================================================================
--- trunk/SASxport/tests/testBlockBoundary.R 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/testBlockBoundary.R 2013-05-31 03:53:49 UTC (rev 1665)
@@ -3,6 +3,8 @@
## loading the created data file.
library(SASxport)
+Sys.setenv("TZ"="GMT")
+
events <- read.csv('events.csv')
exposure <- read.csv('exposure.csv')
events
Modified: trunk/SASxport/tests/testDates.R
===================================================================
--- trunk/SASxport/tests/testDates.R 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/testDates.R 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,4 +1,5 @@
library(SASxport)
+Sys.setenv("TZ"="GMT")
## Create a small data set containing dates, times, and date-times
Modified: trunk/SASxport/tests/testDates.Rout.save
===================================================================
--- trunk/SASxport/tests/testDates.Rout.save 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/testDates.Rout.save 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,5 +1,5 @@
-R version 3.0.0 (2013-04-03) -- "Masked Marvel"
+R version 3.0.1 (2013-05-16) -- "Good Sport"
Copyright (C) 2013 The R Foundation for Statistical Computing
Platform: i686-pc-linux-gnu (32-bit)
@@ -21,6 +21,7 @@
Type `?SASxport' for usage information.
+> Sys.setenv("TZ"="GMT")
>
> ## Create a small data set containing dates, times, and date-times
>
@@ -61,4 +62,4 @@
>
> proc.time()
user system elapsed
- 1.112 0.084 1.183
+ 1.128 0.084 1.201
Modified: trunk/SASxport/tests/testDuplicateNames.R
===================================================================
--- trunk/SASxport/tests/testDuplicateNames.R 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/testDuplicateNames.R 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,6 +1,6 @@
library(SASxport)
+Sys.setenv("TZ"="GMT")
-
##tests
example(read.xport)
Modified: trunk/SASxport/tests/testDuplicateNames.Rout.save
===================================================================
--- trunk/SASxport/tests/testDuplicateNames.Rout.save 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/testDuplicateNames.Rout.save 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,5 +1,5 @@
-R version 3.0.0 (2013-04-03) -- "Masked Marvel"
+R version 3.0.1 (2013-05-16) -- "Good Sport"
Copyright (C) 2013 The R Foundation for Statistical Computing
Platform: i686-pc-linux-gnu (32-bit)
@@ -21,8 +21,8 @@
Type `?SASxport' for usage information.
+> Sys.setenv("TZ"="GMT")
>
->
> ##tests
> example(read.xport)
@@ -119,23 +119,23 @@
> read.xport("dn.a.xpt")
$aa
RACE AGE D1 DT1 T1
-1 blue 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
-2 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
$aa.1
RACE AGE D1 DT1 T1
-1 blue 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
-2 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
$aa.2
RACE AGE D1 DT1 T1
-1 blue 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
-2 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
$aa.3
RACE AGE D1 DT1 T1
-1 blue 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
-2 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
>
> # Duplicate column names
@@ -147,12 +147,12 @@
In makeSASNames(colnames(df)) : Made 5 duplicate names unique.
> read.xport("dn.b.xpt")
RACE AGE D1 DT1 T1 RACE.1 AGE.1 D1.1
-1 blue 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45 blue 30 2002-03-03
-2 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13 31 2002-06-03
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45 blue 30 2002-03-03
+2 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13 31 2002-06-03
DT1.1 T1.1
-1 (03 Mar 2002 04:31:02) 11:13:45
-2 (03 Jun 2002 04:42:07) 11:14:13
+1 (03 Mar 2002 09:31:02) 11:13:45
+2 (03 Jun 2002 09:42:07) 11:14:13
>
> proc.time()
user system elapsed
- 1.292 0.124 2.566
+ 1.368 0.100 2.671
Modified: trunk/SASxport/tests/testFactorAllNA.R
===================================================================
--- trunk/SASxport/tests/testFactorAllNA.R 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/testFactorAllNA.R 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,4 +1,5 @@
library(SASxport)
+Sys.setenv("TZ"="GMT")
x <- data.frame(A=1:10,
B=letters[1:10],
Modified: trunk/SASxport/tests/testManyNames.R
===================================================================
--- trunk/SASxport/tests/testManyNames.R 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/testManyNames.R 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,4 +1,5 @@
library(SASxport)
+Sys.setenv("TZ"="GMT")
data(iris)
Modified: trunk/SASxport/tests/testManyNames.Rout.save
===================================================================
--- trunk/SASxport/tests/testManyNames.Rout.save 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/testManyNames.Rout.save 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,5 +1,5 @@
-R version 3.0.0 (2013-04-03) -- "Masked Marvel"
+R version 3.0.1 (2013-05-16) -- "Good Sport"
Copyright (C) 2013 The R Foundation for Statistical Computing
Platform: i686-pc-linux-gnu (32-bit)
@@ -21,6 +21,7 @@
Type `?SASxport' for usage information.
+> Sys.setenv("TZ"="GMT")
>
> data(iris)
>
@@ -94,4 +95,4 @@
>
> proc.time()
user system elapsed
- 19.392 0.172 19.717
+ 19.312 0.284 19.745
Modified: trunk/SASxport/tests/testNegative.R
===================================================================
--- trunk/SASxport/tests/testNegative.R 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/testNegative.R 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,4 +1,5 @@
library(SASxport)
+Sys.setenv("TZ"="GMT")
df1 <- data.frame( f=c(1.0, -1.0), d=as.integer(c(-1,1) ) )
write.xport(df1, file='df1.xpt')
Modified: trunk/SASxport/tests/testNegative.Rout.save
===================================================================
--- trunk/SASxport/tests/testNegative.Rout.save 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/testNegative.Rout.save 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,5 +1,5 @@
-R version 3.0.0 (2013-04-03) -- "Masked Marvel"
+R version 3.0.1 (2013-05-16) -- "Good Sport"
Copyright (C) 2013 The R Foundation for Statistical Computing
Platform: i686-pc-linux-gnu (32-bit)
@@ -21,6 +21,7 @@
Type `?SASxport' for usage information.
+> Sys.setenv("TZ"="GMT")
>
> df1 <- data.frame( f=c(1.0, -1.0), d=as.integer(c(-1,1) ) )
> write.xport(df1, file='df1.xpt')
@@ -47,4 +48,4 @@
>
> proc.time()
user system elapsed
- 1.260 0.072 1.321
+ 1.272 0.064 1.324
Modified: trunk/SASxport/tests/testNumeric.R
===================================================================
--- trunk/SASxport/tests/testNumeric.R 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/testNumeric.R 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,4 +1,5 @@
library(SASxport)
+Sys.setenv("TZ"="GMT")
##
## Construct a data frame with all common R data types.
Modified: trunk/SASxport/tests/testNumeric.Rout.save
===================================================================
--- trunk/SASxport/tests/testNumeric.Rout.save 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/testNumeric.Rout.save 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,5 +1,5 @@
-R version 3.0.0 (2013-04-03) -- "Masked Marvel"
+R version 3.0.1 (2013-05-16) -- "Good Sport"
Copyright (C) 2013 The R Foundation for Statistical Computing
Platform: i686-pc-linux-gnu (32-bit)
@@ -21,6 +21,7 @@
Type `?SASxport' for usage information.
+> Sys.setenv("TZ"="GMT")
>
> ##
> ## Construct a data frame with all common R data types.
@@ -86,4 +87,4 @@
>
> proc.time()
user system elapsed
- 1.584 0.096 1.673
+ 1.572 0.084 1.651
Modified: trunk/SASxport/tests/testUnnamedComponents.R
===================================================================
--- trunk/SASxport/tests/testUnnamedComponents.R 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/testUnnamedComponents.R 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,6 +1,6 @@
library(SASxport)
+Sys.setenv("TZ"="GMT")
-
##tests
example(read.xport)
write.xport(w$test,file="a.xpt") #1.a
Modified: trunk/SASxport/tests/testUnnamedComponents.Rout.save
===================================================================
--- trunk/SASxport/tests/testUnnamedComponents.Rout.save 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/testUnnamedComponents.Rout.save 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,5 +1,5 @@
-R version 3.0.0 (2013-04-03) -- "Masked Marvel"
+R version 3.0.1 (2013-05-16) -- "Good Sport"
Copyright (C) 2013 The R Foundation for Statistical Computing
Platform: i686-pc-linux-gnu (32-bit)
@@ -21,8 +21,8 @@
Type `?SASxport' for usage information.
+> Sys.setenv("TZ"="GMT")
>
->
> ##tests
> example(read.xport)
@@ -134,8 +134,8 @@
> (tmp <- read.xport("a.xpt")) #1.c
RACE AGE D1 DT1 T1
-1 blue 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
-2 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
>
> b <- w$test
> write.xport(b,file="a.xpt") #2.a
@@ -161,8 +161,8 @@
> (tmp <- read.xport("a.xpt")) #2.c
RACE AGE D1 DT1 T1
-1 blue 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
-2 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
>
> write.xport(test=w$test,file="a.xpt") #3.a
> lookup.xport("a.xpt") #3.b
@@ -187,8 +187,8 @@
> (tmp <- read.xport("a.xpt")) #3.c
RACE AGE D1 DT1 T1
-1 blue 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
-2 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
>
> write.xport(test=w$test,z=w$z,file="a.xpt") #4.a
> lookup.xport("a.xpt") #4.b
@@ -230,8 +230,8 @@
> (tmp <- read.xport("a.xpt")) #4.c
$test
RACE AGE D1 DT1 T1
-1 blue 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
-2 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
$z
X3 X4 X5 X6 X7 X8
@@ -377,8 +377,8 @@
> (tmp <- read.xport("a.xpt")) #5.c
$`w$test`
RACE AGE D1 DT1 T1
-1 blue 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
-2 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
$`w$z`
X3 X4 X5 X6 X7 X8
@@ -524,8 +524,8 @@
> (tmp <- read.xport("a.xpt")) #6.c
$`w$test`
RACE AGE D1 DT1 T1
-1 blue 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
-2 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
$z
X3 X4 X5 X6 X7 X8
@@ -717,8 +717,8 @@
> (tmp <- read.xport("a.xpt")) #7.c
$test
RACE AGE D1 DT1 T1
-1 blue 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
-2 <NA> 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 <NA> 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
$z
X3 X4 X5 X6 X7 X8
@@ -865,8 +865,8 @@
> (tmp <- read.xport("a.xpt")) #8.c
$`w[[1]]`
RACE AGE D1 DT1 T1
-1 blue 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
-2 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
$`w[[2]]`
X3 X4 X5 X6 X7 X8
@@ -1062,8 +1062,8 @@
> (tmp <- read.xport("a.xpt")) #9.c
$data1
RACE AGE D1 DT1 T1
-1 <NA> 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
-2 <NA> 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
+1 <NA> 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 <NA> 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
$data2
X3 X4 X5 X6 X7 X8
@@ -1177,8 +1177,8 @@
> (tmp <- read.xport("a.xpt")) #10.c
$data1
RACE AGE D1 DT1 T1
-1 <NA> 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
-2 <NA> 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
+1 <NA> 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 <NA> 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
$data2
X3 X4 X5 X6 X7 X8
@@ -1291,8 +1291,8 @@
> (tmp <- read.xport("a.xpt")) #10.c
$data1
RACE AGE D1 DT1 T1
-1 <NA> 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
-2 <NA> 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
+1 <NA> 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 <NA> 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
$data2
X3 X4 X5 X6 X7 X8
@@ -1529,8 +1529,8 @@
> (tmp <- read.xport("a.xpt")) #11.c
$data1
RACE AGE D1 DT1 T1
-1 blue 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
-2 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
$data2
X3 X4 X5 X6 X7 X8
@@ -1769,8 +1769,8 @@
> (tmp <- read.xport("a.xpt")) #12.c
$data1
RACE AGE D1 DT1 T1
-1 blue 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
-2 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
$data2
X3 X4 X5 X6 X7 X8
@@ -2054,8 +2054,8 @@
> (tmp <- read.xport("a.xpt")) #13.c
$test
RACE AGE D1 DT1 T1
-1 blue 30 2002-03-03 (03 Mar 2002 04:31:02) 11:13:45
-2 <NA> 31 2002-06-03 (03 Jun 2002 04:42:07) 11:14:13
+1 blue 30 2002-03-03 (03 Mar 2002 09:31:02) 11:13:45
+2 <NA> 31 2002-06-03 (03 Jun 2002 09:42:07) 11:14:13
$z
VAR1 VAR2 VAR3 VAR4 VAR5 VAR6
@@ -2163,4 +2163,4 @@
>
> proc.time()
user system elapsed
- 6.024 1.684 14.087
+ 6.016 1.632 12.803
Modified: trunk/SASxport/tests/test_as_is.R
===================================================================
--- trunk/SASxport/tests/test_as_is.R 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/test_as_is.R 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,4 +1,5 @@
library(SASxport)
+Sys.setenv("TZ"="GMT")
lookup.xport('puromycin.xpt')
Modified: trunk/SASxport/tests/test_as_is.Rout.save
===================================================================
--- trunk/SASxport/tests/test_as_is.Rout.save 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/test_as_is.Rout.save 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,5 +1,5 @@
-R version 3.0.0 (2013-04-03) -- "Masked Marvel"
+R version 3.0.1 (2013-05-16) -- "Good Sport"
Copyright (C) 2013 The R Foundation for Statistical Computing
Platform: i686-pc-linux-gnu (32-bit)
@@ -21,6 +21,7 @@
Type `?SASxport' for usage information.
+> Sys.setenv("TZ"="GMT")
>
> lookup.xport('puromycin.xpt')
@@ -70,4 +71,4 @@
>
> proc.time()
user system elapsed
- 0.860 0.112 0.996
+ 0.876 0.092 0.973
Modified: trunk/SASxport/tests/test_fields.R
===================================================================
--- trunk/SASxport/tests/test_fields.R 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/test_fields.R 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,4 +1,5 @@
library(SASxport)
+Sys.setenv("TZ"="GMT")
## Call C-level test routines
Modified: trunk/SASxport/tests/test_fields.Rout.save
===================================================================
--- trunk/SASxport/tests/test_fields.Rout.save 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/test_fields.Rout.save 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,5 +1,5 @@
-R version 3.0.0 (2013-04-03) -- "Masked Marvel"
+R version 3.0.1 (2013-05-16) -- "Good Sport"
Copyright (C) 2013 The R Foundation for Statistical Computing
Platform: i686-pc-linux-gnu (32-bit)
@@ -21,6 +21,7 @@
Type `?SASxport' for usage information.
+> Sys.setenv("TZ"="GMT")
>
> ## Call C-level test routines
>
@@ -31,4 +32,4 @@
>
> proc.time()
user system elapsed
- 0.756 0.056 0.820
+ 0.756 0.060 0.835
Modified: trunk/SASxport/tests/xport.R
===================================================================
--- trunk/SASxport/tests/xport.R 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/xport.R 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,4 +1,5 @@
library(SASxport)
+Sys.setenv("TZ"="GMT")
lookup.xport("Alfalfa.xpt")
Modified: trunk/SASxport/tests/xport.Rout.save
===================================================================
--- trunk/SASxport/tests/xport.Rout.save 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/xport.Rout.save 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,5 +1,5 @@
-R version 3.0.0 (2013-04-03) -- "Masked Marvel"
+R version 3.0.1 (2013-05-16) -- "Good Sport"
Copyright (C) 2013 The R Foundation for Statistical Computing
Platform: i686-pc-linux-gnu (32-bit)
@@ -21,6 +21,7 @@
Type `?SASxport' for usage information.
+> Sys.setenv("TZ"="GMT")
>
> lookup.xport("Alfalfa.xpt")
@@ -105,4 +106,4 @@
> q()
> proc.time()
user system elapsed
- 0.908 0.108 1.018
+ 0.888 0.124 1.018
Modified: trunk/SASxport/tests/xxx.R
===================================================================
--- trunk/SASxport/tests/xxx.R 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/xxx.R 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,4 +1,5 @@
library(SASxport)
+Sys.setenv("TZ"="GMT")
## manually create a data set
abc <- data.frame( x=c(1, 2, NA, NA ), y=c('a', 'B', NA, '*' ) )
Modified: trunk/SASxport/tests/xxx.Rout.save
===================================================================
--- trunk/SASxport/tests/xxx.Rout.save 2013-05-31 03:14:56 UTC (rev 1664)
+++ trunk/SASxport/tests/xxx.Rout.save 2013-05-31 03:53:49 UTC (rev 1665)
@@ -1,5 +1,5 @@
-R version 3.0.0 (2013-04-03) -- "Masked Marvel"
+R version 3.0.1 (2013-05-16) -- "Good Sport"
Copyright (C) 2013 The R Foundation for Statistical Computing
Platform: i686-pc-linux-gnu (32-bit)
@@ -21,6 +21,7 @@
Type `?SASxport' for usage information.
+> Sys.setenv("TZ"="GMT")
>
> ## manually create a data set
> abc <- data.frame( x=c(1, 2, NA, NA ), y=c('a', 'B', NA, '*' ) )
@@ -78,4 +79,4 @@
>
> proc.time()
user system elapsed
- 0.908 0.092 0.991
+ 0.900 0.104 1.013
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
