1
0
mirror of https://github.com/msberends/AMR.git synced 2025-07-09 02:03:04 +02:00

fix for bind_rows2, added 4 langs

This commit is contained in:
2023-02-11 21:57:12 +01:00
parent 2007c3eef3
commit b146de6d7f
12 changed files with 324 additions and 293 deletions

View File

@ -167,7 +167,7 @@ bind_rows2 <- function(..., fill = NA) {
dfs <- list(...)
all_cols <- unique(unlist(lapply(dfs, colnames)))
mat_list <- lapply(dfs, function(x) {
mat <- matrix(NA, nrow = nrow(x), ncol = length(all_cols))
mat <- matrix(NA, nrow = NROW(x), ncol = length(all_cols))
colnames(mat) <- all_cols
mat[, colnames(x)] <- as.matrix(x)
mat

Binary file not shown.