@@ -299,7 +299,7 @@ mergelist_impl_ = function(l, on, cols, how, mult, copy) {
299299 if (length(how )!= n - 1L || ! all(vapply_1b(how , function (x ) is.character(x ) && length(x )== 1L && ! anyNA(x ) && x %chin % c(" left" , " inner" , " full" , " right" , " semi" , " anti" , " cross" ))))
300300 stopf(" 'how' must be one of [left, inner, full, right, semi, anti, cross], or a list of such whose length must be length(l)-1L" )
301301
302- if (missing( cols ) || is.null(cols )) {
302+ if (is.null(cols )) {
303303 cols = vector(" list" , n )
304304 } else {
305305 if (! is.list(cols ))
@@ -346,12 +346,12 @@ mergelist_impl_ = function(l, on, cols, how, mult, copy) {
346346 out
347347}
348348
349- mergelist = function (l , on , cols , how = c(" left" , " inner" , " full" , " right" , " semi" , " anti" , " cross" ), mult , join.many = getOption(" datatable.join.many" )) {
349+ mergelist = function (l , on , cols = NULL , how = c(" left" , " inner" , " full" , " right" , " semi" , " anti" , " cross" ), mult , join.many = getOption(" datatable.join.many" )) {
350350 if (missing(how ) || is.null(how ))
351351 how = match.arg(how )
352352 mergelist_impl_(l , on , cols , how , mult , join.many , copy = TRUE )
353353}
354- setmergelist = function (l , on , cols , how = c(" left" , " inner" , " full" , " right" , " semi" , " anti" , " cross" ), mult , join.many = getOption(" datatable.join.many" )) {
354+ setmergelist = function (l , on , cols = NULL , how = c(" left" , " inner" , " full" , " right" , " semi" , " anti" , " cross" ), mult , join.many = getOption(" datatable.join.many" )) {
355355 if (missing(how ) || is.null(how ))
356356 how = match.arg(how )
357357 mergelist_impl_(l , on , cols , how , mult , join.many , copy = FALSE )
0 commit comments