Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

rbindlist support fill=TRUE with use.names=FALSE and use it in merge.R ToDo of #678 #5263

Merged
merged 12 commits into from
Nov 23, 2021
Merged

rbindlist support fill=TRUE with use.names=FALSE and use it in merge.R ToDo of #678 #5263

Changes from 6 commits
Commits
Show all changes
12 commits
Select commit Hold shift + click to select a range
afa4c7a
use set in merge instead of cbind
ben-schwen Nov 19, 2021
285e971
use CsubsetDT twice and remove this branch
ben-schwen Nov 19, 2021
aefc535
cutting dummy table
ben-schwen Nov 19, 2021
287eb65
revert subsetDT
ben-schwen Nov 20, 2021
9af66cb
reuse names
ben-schwen Nov 20, 2021
864c409
flip tail indexing
ben-schwen Nov 20, 2021
773b188
add test to ensure y is not altered
ben-schwen Nov 21, 2021
469f236
tidy up test
ben-schwen Nov 21, 2021
cc7846d
add more tests
ben-schwen Nov 21, 2021
cac0391
make comments clearer
ben-schwen Nov 22, 2021
8249e12
Merge branch 'master' into clear_todos_megabranch
mattdowle Nov 22, 2021
4030b94
add rbindlist support for use.names=FALSE with fill=TRUE and use that…
mattdowle Nov 23, 2021
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Jump to
Jump to file
Failed to load files.
Diff view
Diff view
5 changes: 2 additions & 3 deletions R/merge.R
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -81,9 +81,8 @@ merge.data.table = function(x, y, by = NULL, by.x = NULL, by.y = NULL, all = FAL
yy = y[missingyidx]
othercolsx = setdiff(nm_x, by)
if (length(othercolsx)) {
tmp = rep.int(NA_integer_, length(missingyidx))
# TO DO: use set() here instead..
yy = cbind(yy, x[tmp, othercolsx, with = FALSE])
nx = make.unique(c(names(yy), othercolsx))
set(yy, NULL, tail(nx, length(othercolsx)), rep(list(NA), length(othercolsx)))
ben-schwen marked this conversation as resolved.
Show resolved Hide resolved
}
# empty data.tables (nrow =0, ncol>0) doesn't skip names anymore in new rbindlist
# takes care of #24 without having to save names. This is how it should be, IMHO.
Expand Down