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
|
#' Mutable ranges have a two methods (`train` and `reset`), and make
#' it possible to build up complete ranges with multiple passes.
#'
#' These range objects should be instantiated with
#' [continuous_range()] and [discrete_range()].
#'
#' @noRd
Range <- ggproto("Range", NULL,
range = NULL,
reset = function(self) {
self$range <- NULL
}
)
RangeDiscrete <- ggproto("RangeDiscrete", Range,
train = function(self, x, drop = FALSE, na.rm = FALSE) {
self$range <- scales::train_discrete(x, self$range, drop = drop, na.rm = na.rm)
}
)
RangeContinuous <- ggproto("RangeContinuous", Range,
train = function(self, x) {
self$range <- scales::train_continuous(x, self$range)
}
)
continuous_range <- function() {
ggproto(NULL, RangeContinuous)
}
discrete_range <- function() {
ggproto(NULL, RangeDiscrete)
}
|
