[R-gregmisc-users] SF.net SVN: r-gregmisc:[1815] trunk/gtools/tests/smartbind_Dates.R

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

Revision: 1815
          http://sourceforge.net/p/r-gregmisc/code/1815
Author:   warnes
Date:     2014-05-28 00:18:38 +0000 (Wed, 28 May 2014)
Log Message:
-----------
Add test to ensure smartbind() properly handles Date columns.

Added Paths:
-----------
    trunk/gtools/tests/smartbind_Dates.R

Added: trunk/gtools/tests/smartbind_Dates.R
===================================================================
--- trunk/gtools/tests/smartbind_Dates.R	                        (rev 0)
+++ trunk/gtools/tests/smartbind_Dates.R	2014-05-28 00:18:38 UTC (rev 1815)
@@ -0,0 +1,9 @@
+library(gtools)
+
+today <- Sys.Date()
+tenweeks <- seq(today, length.out=10, by="1 week")
+
+df1 <- data.frame(dates=tenweeks, chars=letters[1:10], ints=1:10, numeric=1.1:10.1)
+df2 <- data.frame(chars=letters[11:20], ints=11:20, numeric=11.1:20.1)
+
+smartbind(df1, df2)

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