功能生成; 更改其他功能的默认值(部分)

Question

我需要一个函数生成器,它接受另一个函数和该函数的任何参数并设置新的默认值.我以为@ hadley pryr::partial是那个神奇的功能.它完全符合我的要求,除非您无法更改新的默认值.所以在这里我可以改变sep我的新paste功能但不是新的默认值collapse = "_BAR_".如何以partial这种方式执行(即默认为collapse = "_BAR_"启用但collapse = NULL如果需要可以设置)？如果这是不可能的,partial有没有办法重写代码partial来执行此操作:https://github.com/hadley/pryr/blob/master/R/partial.r

library(pryr)
.paste <- pryr::partial(paste, collapse = "_FOO_")

.paste(1:5)
.paste(1:5, LETTERS[1:5], sep="_BAR_")
.paste(1:5, collapse=NULL)

> .paste(1:5)
[1] "1_FOO_2_FOO_3_FOO_4_FOO_5"

> .paste(1:5, LETTERS[1:5], sep="_BAR_")
[1] "1_BAR_A_FOO_2_BAR_B_FOO_3_BAR_C_FOO_4_BAR_D_FOO_5_BAR_E"

> .paste(1:5, collapse=NULL)
Error in paste(collapse = "_FOO_", ...) : 
  formal argument "collapse" matched by multiple actual arguments

Answer 1

partial适用于修复某些参数值,但如果要更改默认值,则可以考虑使用其他策略.这会奏效

.paste <- paste
formals(.paste)$collapse <- "_FOO_"

这会将参数更改为函数

args(.paste)
# function (..., sep = " ", collapse = "_FOO_") 
# NULL

那你可以做

.paste(1:5)
# [1] "1_FOO_2_FOO_3_FOO_4_FOO_5"
.paste(1:5, LETTERS[1:5], sep="_BAR_")
# [1] "1_BAR_A_FOO_2_BAR_B_FOO_3_BAR_C_FOO_4_BAR_D_FOO_5_BAR_E"
.paste(1:5, collapse=NULL)
# [1] "1" "2" "3" "4" "5"

Answer 2

这是一个罐装功能,它采用@ MrFlick的极好回应,并将其用于未来搜索者的功能:

hijack <- function(FUN, ...){

    .FUN <- FUN

    args <- list(...)
    invisible(lapply(seq_along(args), function(i) {
        formals(.FUN)[[names(args)[i]]] <<- args[[i]]
    }))
    .FUN
}

#现在尝试一下

.paste <- hijack(paste, collapse = "_FOO_")

.paste(1:5)
.paste(1:5, LETTERS[1:5], sep="_BAR_")
.paste(1:5, collapse=NULL)

生产

> .paste(1:5)
[1] "1_FOO_2_FOO_3_FOO_4_FOO_5"

> .paste(1:5, LETTERS[1:5], sep="_BAR_")
[1] "1_BAR_A_FOO_2_BAR_B_FOO_3_BAR_C_FOO_4_BAR_D_FOO_5_BAR_E"

> .paste(1:5, collapse=NULL)
[1] "1" "2" "3" "4" "5"