Dear list, Currently, it is needed to use anonymous functions to pass additional parameters to f in Reduce.
The following patch adds ... to pass additional arguments directly and seems to work in simple cases (see example below). However, since this was not available (even though it is common for similar functions), I suspect that I am missing something... Best, Thomas dfs <- list(x = warpbreaks) dfs$x$id <- seq_along(dfs$x$breaks) dfs$y <- dfs$x[1:15, ] dfs$z <- dfs$x[20:35, ] identical( Reduce(function(...) merge(..., by = "id", all = TRUE), dfs), Reduce(merge, dfs, by = "id", all = TRUE) ) diff -u orig/funprog.R mod/funprog.R --- orig/funprog.R 2021-12-01 23:02:09.710231318 +0100 +++ mod/funprog.R 2021-12-01 23:23:58.591120101 +0100 @@ -1,7 +1,7 @@ # File src/library/base/R/funprog.R # Part of the R package, https://www.R-project.org # -# Copyright (C) 1995-2014 The R Core Team +# Copyright (C) 1995-2021 The R Core Team # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by @@ -17,7 +17,7 @@ # https://www.R-project.org/Licenses/ Reduce <- -function(f, x, init, right = FALSE, accumulate = FALSE) +function(f, x, init, right = FALSE, accumulate = FALSE, ...) { mis <- missing(init) len <- length(x) @@ -49,11 +49,11 @@ if(!accumulate) { if(right) { for(i in rev(ind)) - init <- forceAndCall(2, f, x[[i]], init) + init <- forceAndCall(2, f, x[[i]], init, ...) } else { for(i in ind) - init <- forceAndCall(2, f, init, x[[i]]) + init <- forceAndCall(2, f, init, x[[i]], ...) } init } @@ -66,13 +66,13 @@ if(right) { out[[len]] <- init for(i in rev(ind)) { - init <- forceAndCall(2, f, x[[i]], init) + init <- forceAndCall(2, f, x[[i]], init, ...) out[[i]] <- init } } else { out[[1L]] <- init for(i in ind) { - init <- forceAndCall(2, f, init, x[[i]]) + init <- forceAndCall(2, f, init, x[[i]], ...) out[[i]] <- init } } @@ -80,14 +80,14 @@ if(right) { out[[len]] <- init for(i in rev(ind)) { - init <- forceAndCall(2, f, x[[i]], init) + init <- forceAndCall(2, f, x[[i]], init, ...) out[[i]] <- init } } else { for(i in ind) { out[[i]] <- init - init <- forceAndCall(2, f, init, x[[i]]) + init <- forceAndCall(2, f, init, x[[i]], ...) } out[[len]] <- init } diff -u orig/funprog.Rd mod/funprog.Rd --- orig/funprog.Rd 2021-12-01 23:02:38.400738386 +0100 +++ mod/funprog.Rd 2021-12-01 23:29:28.993976101 +0100 @@ -21,7 +21,7 @@ given function. } \usage{ -Reduce(f, x, init, right = FALSE, accumulate = FALSE) +Reduce(f, x, init, right = FALSE, accumulate = FALSE, ...) Filter(f, x) Find(f, x, right = FALSE, nomatch = NULL) Map(f, ...) @@ -44,7 +44,7 @@ combination is used.} \item{nomatch}{the value to be returned in the case when \dQuote{no match} (no element satisfying the predicate) is found.} - \item{\dots}{vectors.} + \item{\dots}{arguments to be passed to FUN.} } \details{ If \code{init} is given, \code{Reduce} logically adds it to the start ______________________________________________ R-devel@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-devel
