[R-gregmisc-users] SF.net SVN: r-gregmisc:[1645] trunk/gdata/tests

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

Revision: 1645
          http://sourceforge.net/p/r-gregmisc/code/1645
Author:   warnes
Date:     2013-03-24 04:50:22 +0000 (Sun, 24 Mar 2013)
Log Message:
-----------
Update test files for code changes

Modified Paths:
--------------
    trunk/gdata/tests/test.read.xls.Rout.save
    trunk/gdata/tests/tests.write.fwf.Rout.save

Modified: trunk/gdata/tests/test.read.xls.Rout.save
===================================================================
--- trunk/gdata/tests/test.read.xls.Rout.save	2013-03-24 04:36:45 UTC (rev 1644)
+++ trunk/gdata/tests/test.read.xls.Rout.save	2013-03-24 04:50:22 UTC (rev 1645)
@@ -1,8 +1,8 @@
 
-R version 2.15.0 (2012-03-30)
-Copyright (C) 2012 The R Foundation for Statistical Computing
+R version 2.15.3 Patched (2013-03-13 r62287) -- "Security Blanket"
+Copyright (C) 2013 The R Foundation for Statistical Computing
 ISBN 3-900051-07-0
-Platform: x86_64-apple-darwin9.8.0/x86_64 (64-bit)
+Platform: i386-apple-darwin9.8.0/i386 (32-bit)
 
 R is free software and comes with ABSOLUTELY NO WARRANTY.
 You are welcome to redistribute it under certain conditions.
@@ -38,7 +38,7 @@
 +   }
 > 
 > # iris.xls is included in the gregmisc package for use as an example
-> xlsfile <- file.path(.path.package('gdata'),'xls','iris.xls')
+> xlsfile <- file.path(path.package('gdata'),'xls','iris.xls')
 > 
 > iris.1 <- read.xls(xlsfile) # defaults to csv format
 > iris.1
@@ -505,10 +505,10 @@
 > stopifnot(all.equal(iris.1, iris.2))
 > stopifnot(all.equal(iris.1, iris.3))
 > 
-> exampleFile <- file.path(.path.package('gdata'),'xls',
+> exampleFile <- file.path(path.package('gdata'),'xls',
 +                          'ExampleExcelFile.xls')
 > 
-> exampleFile2007 <- file.path(.path.package('gdata'),'xls',
+> exampleFile2007 <- file.path(path.package('gdata'),'xls',
 +                          'ExampleExcelFile.xlsx')
 > 
 > # see the number and names of sheets:
@@ -669,18 +669,28 @@
 > 
 > ## Check handing of fileEncoding for latin-1 characters
 > 
-> latin1File <- file.path(.path.package('gdata'),'xls', 'latin-1.xls')
-> latin1FileX <- file.path(.path.package('gdata'),'xls', 'latin-1.xlsx')
+> latin1File <- file.path(path.package('gdata'),'xls', 'latin-1.xls')
+> latin1FileX <- file.path(path.package('gdata'),'xls', 'latin-1.xlsx')
 > 
 > example.latin1 <- read.xls(latin1File, fileEncoding='latin1')
+Warning messages:
+1: In read.table(file = file, header = header, sep = sep, quote = quote,  :
+  invalid input found on input connection '/var/folders/dG/dGl84jhkHAe+alfrBBIYKE+++TQ/-Tmp-//RtmpGQaXAS/file4640360d0390.csv'
+2: In read.table(file = file, header = header, sep = sep, quote = quote,  :
+  incomplete final line found by readTableHeader on '/var/folders/dG/dGl84jhkHAe+alfrBBIYKE+++TQ/-Tmp-//RtmpGQaXAS/file4640360d0390.csv'
 > 
 > if( 'XLSX' %in% xlsFormats() )
 +   {
 +     example.latin1.x <- read.xls(latin1FileX, fileEncoding='latin1')
 +   }
+Warning messages:
+1: In read.table(file = file, header = header, sep = sep, quote = quote,  :
+  invalid input found on input connection '/var/folders/dG/dGl84jhkHAe+alfrBBIYKE+++TQ/-Tmp-//RtmpGQaXAS/file46401064fea9.csv'
+2: In read.table(file = file, header = header, sep = sep, quote = quote,  :
+  incomplete final line found by readTableHeader on '/var/folders/dG/dGl84jhkHAe+alfrBBIYKE+++TQ/-Tmp-//RtmpGQaXAS/file46401064fea9.csv'
 > 
 > 
 > 
 > proc.time()
    user  system elapsed 
-  3.564   0.436   4.186 
+  6.693   0.979   7.921 

Modified: trunk/gdata/tests/tests.write.fwf.Rout.save
===================================================================
--- trunk/gdata/tests/tests.write.fwf.Rout.save	2013-03-24 04:36:45 UTC (rev 1644)
+++ trunk/gdata/tests/tests.write.fwf.Rout.save	2013-03-24 04:50:22 UTC (rev 1645)
@@ -1,8 +1,8 @@
 
-R version 2.15.0 (2012-03-30)
-Copyright (C) 2012 The R Foundation for Statistical Computing
+R version 2.15.3 Patched (2013-03-13 r62287) -- "Security Blanket"
+Copyright (C) 2013 The R Foundation for Statistical Computing
 ISBN 3-900051-07-0
-Platform: x86_64-apple-darwin9.8.0/x86_64 (64-bit)
+Platform: i386-apple-darwin9.8.0/i386 (32-bit)
 
 R is free software and comes with ABSOLUTELY NO WARRANTY.
 You are welcome to redistribute it under certain conditions.
@@ -232,4 +232,4 @@
 > 
 > proc.time()
    user  system elapsed 
-  0.430   0.041   0.465 
+  0.830   0.090   0.906 

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