@@ -59,6 +59,38 @@ test_that("wrap: missing facet columns are duplicated", {
59
59
expect_equal(loc_c $ PANEL , factor (1 : 4 ))
60
60
})
61
61
62
+ test_that(" wrap and grid can facet by a date variable" , {
63
+ date_df <- data_frame(date_var = as.Date(c(" 1971-12-11" , " 1987-01-13" , " 2000-01-01" )))
64
+
65
+ wrap <- facet_wrap(~ date_var )
66
+ loc_wrap <- panel_map_one(wrap , date_df )
67
+ expect_equal(loc_wrap $ PANEL , factor (1 : 3 ))
68
+
69
+ grid_col <- facet_grid(~ date_var )
70
+ loc_grid_col <- panel_map_one(grid_col , date_df )
71
+ expect_equal(loc_grid_col $ PANEL , factor (1 : 3 ))
72
+
73
+ grid_row <- facet_grid(date_var ~ . )
74
+ loc_grid_row <- panel_map_one(grid_row , date_df )
75
+ expect_equal(loc_grid_row $ PANEL , factor (1 : 3 ))
76
+ })
77
+
78
+ test_that(" wrap and grid can facet by a POSIXct variable" , {
79
+ date_df <- data_frame(date_var = as.POSIXct(c(" 1971-12-11" , " 1987-01-13" , " 2000-01-01" )))
80
+
81
+ wrap <- facet_wrap(~ date_var )
82
+ loc_wrap <- panel_map_one(wrap , date_df )
83
+ expect_equal(loc_wrap $ PANEL , factor (1 : 3 ))
84
+
85
+ grid_col <- facet_grid(~ date_var )
86
+ loc_grid_col <- panel_map_one(grid_col , date_df )
87
+ expect_equal(loc_grid_col $ PANEL , factor (1 : 3 ))
88
+
89
+ grid_row <- facet_grid(date_var ~ . )
90
+ loc_grid_row <- panel_map_one(grid_row , date_df )
91
+ expect_equal(loc_grid_row $ PANEL , factor (1 : 3 ))
92
+ })
93
+
62
94
# Missing behaviour ----------------------------------------------------------
63
95
64
96
a3 <- data_frame(
0 commit comments