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:
@ -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
|
||||
|
BIN
R/sysdata.rda
BIN
R/sysdata.rda
Binary file not shown.
Reference in New Issue
Block a user