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
|
split_matrix <- function(x, col_names = colnames(x)) {
force(col_names)
x <- lapply(seq_len(ncol(x)), function(i) x[, i])
if (!is.null(col_names)) names(x) <- col_names
x
}
mat_2_df <- function(x, col_names = colnames(x)) {
cols <- split_matrix(x, col_names)
data_frame0(!!!cols, .size = nrow(x))
}
df_col <- function(x, name) .subset2(x, name)
df_rows <- function(x, i) {
cols <- lapply(x, `[`, i = i)
data_frame0(!!!cols, .size = length(i))
}
# More performant modifyList without recursion
modify_list <- function(old, new) {
for (i in names(new)) old[[i]] <- new[[i]]
old
}
modifyList <- function(...) {
cli::cli_abort(c(
"Please use {.fn modify_list} instead of {.fn modifyList} for better performance.",
"i" = "See the vignette {.emph ggplot2 internal programming guidelines} for details."
))
}
|
