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

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

Revision: 1881
          http://sourceforge.net/p/r-gregmisc/code/1881
Author:   warnes
Date:     2014-08-28 05:17:28 +0000 (Thu, 28 Aug 2014)
Log Message:
-----------
Add tests and corresponding test files for 1900 and 1904 based XLX/XLSX files

Modified Paths:
--------------
    trunk/gdata/tests/test.read.xls.R

Added Paths:
-----------
    trunk/gdata/inst/xls/ExampleExcelFile_1900.xls
    trunk/gdata/inst/xls/ExampleExcelFile_1900.xlsx
    trunk/gdata/inst/xls/ExampleExcelFile_1904.xls
    trunk/gdata/inst/xls/ExampleExcelFile_1904.xlsx

Added: trunk/gdata/inst/xls/ExampleExcelFile_1900.xls
===================================================================
(Binary files differ)

Index: trunk/gdata/inst/xls/ExampleExcelFile_1900.xls
===================================================================
--- trunk/gdata/inst/xls/ExampleExcelFile_1900.xls	2014-08-28 04:56:57 UTC (rev 1880)
+++ trunk/gdata/inst/xls/ExampleExcelFile_1900.xls	2014-08-28 05:17:28 UTC (rev 1881)

Property changes on: trunk/gdata/inst/xls/ExampleExcelFile_1900.xls
___________________________________________________________________
Added: svn:mime-type
## -0,0 +1 ##
+application/vnd.ms-excel
\ No newline at end of property
Added: trunk/gdata/inst/xls/ExampleExcelFile_1900.xlsx
===================================================================
(Binary files differ)

Index: trunk/gdata/inst/xls/ExampleExcelFile_1900.xlsx
===================================================================
--- trunk/gdata/inst/xls/ExampleExcelFile_1900.xlsx	2014-08-28 04:56:57 UTC (rev 1880)
+++ trunk/gdata/inst/xls/ExampleExcelFile_1900.xlsx	2014-08-28 05:17:28 UTC (rev 1881)

Property changes on: trunk/gdata/inst/xls/ExampleExcelFile_1900.xlsx
___________________________________________________________________
Added: svn:mime-type
## -0,0 +1 ##
+application/vnd.openxmlformats-officedocument.spreadsheetml.sheet
\ No newline at end of property
Added: trunk/gdata/inst/xls/ExampleExcelFile_1904.xls
===================================================================
(Binary files differ)

Index: trunk/gdata/inst/xls/ExampleExcelFile_1904.xls
===================================================================
--- trunk/gdata/inst/xls/ExampleExcelFile_1904.xls	2014-08-28 04:56:57 UTC (rev 1880)
+++ trunk/gdata/inst/xls/ExampleExcelFile_1904.xls	2014-08-28 05:17:28 UTC (rev 1881)

Property changes on: trunk/gdata/inst/xls/ExampleExcelFile_1904.xls
___________________________________________________________________
Added: svn:mime-type
## -0,0 +1 ##
+application/vnd.ms-excel
\ No newline at end of property
Added: trunk/gdata/inst/xls/ExampleExcelFile_1904.xlsx
===================================================================
(Binary files differ)

Index: trunk/gdata/inst/xls/ExampleExcelFile_1904.xlsx
===================================================================
--- trunk/gdata/inst/xls/ExampleExcelFile_1904.xlsx	2014-08-28 04:56:57 UTC (rev 1880)
+++ trunk/gdata/inst/xls/ExampleExcelFile_1904.xlsx	2014-08-28 05:17:28 UTC (rev 1881)

Property changes on: trunk/gdata/inst/xls/ExampleExcelFile_1904.xlsx
___________________________________________________________________
Added: svn:mime-type
## -0,0 +1 ##
+application/vnd.openxmlformats-officedocument.spreadsheetml.sheet
\ No newline at end of property
Modified: trunk/gdata/tests/test.read.xls.R
===================================================================
--- trunk/gdata/tests/test.read.xls.R	2014-08-28 04:56:57 UTC (rev 1880)
+++ trunk/gdata/tests/test.read.xls.R	2014-08-28 05:17:28 UTC (rev 1881)
@@ -110,3 +110,22 @@
      example.wide.x <- read.xls(wideFileX)
      stopifnot(dim(example.wide.x)==c(0,16384))
   }
+
+## Check handling of files with dates calulcated relative to
+## 1900-01-01 and 1904-01-01
+
+file.1900 <- file.path(path.package('gdata'),'xls', 'ExampleExcelFile_1900.xls')
+file.1904 <- file.path(path.package('gdata'),'xls', 'ExampleExcelFile_1904.xls')
+
+example.1900 <- read.xls(file.1900, sheet=3)
+example.1904 <- read.xls(file.1904, sheet=3)
+
+stopifnot( na.omit(example.1900 == example.1904) )
+
+fileX.1900 <- file.path(path.package('gdata'),'xls', 'ExampleExcelFile_1900.xlsx')
+fileX.1904 <- file.path(path.package('gdata'),'xls', 'ExampleExcelFile_1904.xlsx')
+
+exampleX.1900 <- read.xls(file.1900, sheet=3)
+exampleX.1904 <- read.xls(file.1904, sheet=3)
+
+stopifnot( na.omit(exampleX.1900 == exampleX.1904)  )

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