@@ -75,18 +75,22 @@ test_that("works with transformed scales", {
75
75
76
76
ret <- layer_data(base )
77
77
expect_equal(nrow(ret ), 5 )
78
+ expect_equal(ret $ x , seq(1 , 10 , length.out = 5 ))
78
79
expect_equal(ret $ y , ret $ x ^ 2 )
79
80
80
81
ret <- layer_data(base + scale_x_log10())
81
82
expect_equal(nrow(ret ), 5 )
83
+ expect_equal(ret $ x , seq(0 , 1 , length.out = 5 ))
82
84
expect_equal(ret $ y , (10 ^ ret $ x )^ 2 )
83
85
84
86
ret <- layer_data(base + scale_y_log10())
85
87
expect_equal(nrow(ret ), 5 )
88
+ expect_equal(ret $ x , seq(1 , 10 , length.out = 5 ))
86
89
expect_equal(10 ^ ret $ y , ret $ x ^ 2 )
87
90
88
91
ret <- layer_data(base + scale_x_log10() + scale_y_log10())
89
92
expect_equal(nrow(ret ), 5 )
93
+ expect_equal(ret $ x , seq(0 , 1 , length.out = 5 ))
90
94
expect_equal(10 ^ ret $ y , (10 ^ ret $ x )^ 2 )
91
95
92
96
# now with explicit mapping of y
@@ -95,18 +99,22 @@ test_that("works with transformed scales", {
95
99
96
100
ret <- layer_data(base , 2 )
97
101
expect_equal(nrow(ret ), 5 )
102
+ expect_equal(ret $ x , seq(1 , 10 , length.out = 5 ))
98
103
expect_equal(ret $ y , ret $ x ^ 2 )
99
104
100
105
ret <- layer_data(base + scale_x_log10(), 2 )
101
106
expect_equal(nrow(ret ), 5 )
107
+ expect_equal(ret $ x , seq(0 , 1 , length.out = 5 ))
102
108
expect_equal(ret $ y , (10 ^ ret $ x )^ 2 )
103
109
104
110
ret <- layer_data(base + scale_y_log10(), 2 )
105
111
expect_equal(nrow(ret ), 5 )
112
+ expect_equal(ret $ x , seq(1 , 10 , length.out = 5 ))
106
113
expect_equal(10 ^ ret $ y , ret $ x ^ 2 )
107
114
108
115
ret <- layer_data(base + scale_x_log10() + scale_y_log10(), 2 )
109
116
expect_equal(nrow(ret ), 5 )
117
+ expect_equal(ret $ x , seq(0 , 1 , length.out = 5 ))
110
118
expect_equal(10 ^ ret $ y , (10 ^ ret $ x )^ 2 )
111
119
})
112
120
0 commit comments