chmatch not match, thanks Michael

Rdatatable · Apr 13, 2021 · 81e13ec · 81e13ec
1 parent d19260b
commit 81e13ec
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/data.table.R b/R/data.table.R
@@ -1385,7 +1385,7 @@ replace_dot_alias = function(e) {
     byval = i
     bynames = if (missing(on)) head(key(x),length(leftcols)) else names(on)
     allbyvars = NULL
-    bysameorder = (haskey(i) && identical(leftcols, match(head(key(i),length(leftcols)), names(i)))) || # leftcols leading subset of key(i); see #4917
+    bysameorder = (haskey(i) && identical(leftcols, chmatch(head(key(i),length(leftcols)), names(i)))) || # leftcols leading subset of key(i); see #4917
                   (roll==FALSE && is.sorted(f__)) # roll==FALSE is fix for #1010
     ##  'av' correct here ??  *** TO DO ***
     xjisvars = intersect(av, names_x[rightcols])  # no "x." for xvars.