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
|
#' Normalise z values within a gtable object
#'
#' The z values within a gtable object can be any numeric values.
#' This function will change them to integers (starting from 1),
#' preserving the original order.
#'
#' Ties are handled by the `"first"` method: the first occurrence
#' of a value wins.
#'
#' @param x A gtable object
#' @param i The z value to start counting up from (default is 1)
#'
#' @noRd
z_normalise <- function(x, i = 1) {
layout <- unclass(x$layout)
layout$z <- rank(layout$z, ties.method = "first") + i - 1
x$layout <- new_data_frame(layout)
x
}
#' Arrange the z values within gtable objects
#'
#' This is usually used before rbinding or cbinding the gtables together.
#' The resulting z values will be normalized.
#'
#' Ties are handled by the `"first"` method: the first occurrence
#' of a value wins.
#'
#' @param gtables A list of gtable objects
#' @param z A numeric vector of relative z values
#'
#' @noRd
z_arrange_gtables <- function(gtables, z) {
if (length(gtables) != length(z)) {
cli::cli_abort("{.arg gtables} and {.arg z} must be the same length")
}
# Keep track of largest z value encountered so far
zmax <- 0
# Go through each gtable, in the order of z
for (i in order(z)) {
# max() gives a warning if zero-length input
if (nrow(gtables[[i]]$layout) > 0) {
gtables[[i]] <- z_normalise(gtables[[i]], zmax + 1)
zmax <- max(.subset2(gtables[[i]]$layout, "z"))
}
}
gtables
}
|
