diff options
Diffstat (limited to 'R/pkg/R/RDD.R')
-rw-r--r-- | R/pkg/R/RDD.R | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/R/pkg/R/RDD.R b/R/pkg/R/RDD.R index 2a013b3dbb..051e441d4e 100644 --- a/R/pkg/R/RDD.R +++ b/R/pkg/R/RDD.R @@ -1264,12 +1264,12 @@ setMethod("pipeRDD", signature(x = "RDD", command = "character"), function(x, command, env = list()) { func <- function(part) { - trim.trailing.func <- function(x) { + trim_trailing_func <- function(x) { sub("[\r\n]*$", "", toString(x)) } - input <- unlist(lapply(part, trim.trailing.func)) + input <- unlist(lapply(part, trim_trailing_func)) res <- system2(command, stdout = TRUE, input = input, env = env) - lapply(res, trim.trailing.func) + lapply(res, trim_trailing_func) } lapplyPartition(x, func) }) |