1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
test_that("binned scales only support continuous data", {
p <- ggplot(mtcars) + geom_bar(aes(as.character(gear))) + scale_x_binned()
expect_snapshot_error(ggplot_build(p))
p <- ggplot(mtcars) + geom_point(aes(disp, mpg, colour = as.character(gear))) + scale_color_binned()
expect_snapshot_error(ggplot_build(p))
})
test_that("binned scales limits can expand to fit breaks", {
# See also #5095
scale <- scale_x_binned(right = FALSE, show.limits = TRUE)
scale$train(c(14, 29))
limits <- scale$get_limits()
breaks <- scale$get_breaks()
new_limits <- scale$get_limits()
# Positive control
expect_equal(limits, c(14, 29))
# Test case, should have been updated in break calculation
expect_equal(new_limits, c(14, 30))
# Negative control
# Now, new limits should not be updated because limits were given instead
# of computed
scale <- scale_x_binned(right = FALSE, show.limits = TRUE,
limits = c(14, 29))
limits <- scale$get_limits()
breaks <- scale$get_breaks()
new_limits <- scale$get_limits()
expect_equal(limits, new_limits)
})
test_that("binned limits should not compute out-of-bounds breaks", {
scale <- scale_x_binned(n.breaks = 10)
scale$train(c(1, 9))
limits <- scale$get_limits()
breaks <- scale$get_breaks()
expect_length(breaks, 7) # Not the requested 10 due to oob discarding
expect_true(all(
breaks > limits[1] & breaks < limits[2]
))
})
test_that('binned scales can calculate breaks on dates', {
data <- seq(as.Date("2000-01-01"), as.Date("2020-01-01"), length.out = 100)
scale <- scale_x_binned(trans = "date")
scale$train(scale$transform(data))
breaks <- scale$trans$inverse(scale$get_breaks())
expect_s3_class(breaks, "Date")
expect_equal(
unname(breaks),
as.Date(paste0(seq(2002, 2018, by = 2), "-01-01"))
)
})
test_that('binned scales can calculate breaks on date-times', {
data <- seq(
strptime("2000-01-01", "%Y-%m-%d"),
strptime("2020-01-01", "%Y-%m-%d"),
length.out = 100
)
scale <- scale_x_binned(trans = "time")
scale$train(scale$transform(data))
breaks <- scale$trans$inverse(scale$get_breaks())
expect_s3_class(breaks, "POSIXct")
expect_equal(
unname(unclass(breaks)),
unclass(as.POSIXct(strptime(
paste0(seq(2002, 2018, by = 2), "-01-01"),
"%Y-%m-%d"
)))
)
})
|
