[Dplr-commits] r1039 - pkg/dplR/tests/testthat

[noreply at r-forge.r-project.org]

Author: mvkorpel
Date: 2016-11-25 13:35:20 +0100 (Fri, 25 Nov 2016)
New Revision: 1039

Modified:
   pkg/dplR/tests/testthat/test-dplR.R
Log:
Change test of combine.rwl() to match recent class change


Modified: pkg/dplR/tests/testthat/test-dplR.R
===================================================================
--- pkg/dplR/tests/testthat/test-dplR.R	2016-11-09 16:34:27 UTC (rev 1038)
+++ pkg/dplR/tests/testthat/test-dplR.R	2016-11-25 12:35:20 UTC (rev 1039)
@@ -108,10 +108,12 @@
     rnames.3 <- as.character(range.3)
     range.4 <- range.1 + 450
     rnames.4 <- as.character(range.4)
-    df.1 <- data.frame(col1 = c(v.1, rep.int(NA, 50)),
-                       col2 = c(rep.int(NA, 25), v.1, rep.int(NA, 25)),
-                       col3 = c(rep.int(NA, 50), v.1),
-                       row.names = rnames.1)
+    df.1 <-
+        structure(data.frame(col1 = c(v.1, rep.int(NA, 50)),
+                             col2 = c(rep.int(NA, 25), v.1, rep.int(NA, 25)),
+                             col3 = c(rep.int(NA, 50), v.1),
+                             row.names = rnames.1),
+                  class = c("rwl", "data.frame"))
     df.2 <- df.1
     rownames(df.2) <- rnames.2
     df.3 <- df.1