Eu tenho a necessidade de um gerador de função que use outra função e quaisquer argumentos dessa função e defina novos padrões. Eu pensei @ hadleypryr::partial foi essa função mágica. Ele faz exatamente o que eu quero, exceto que você não pode alterar esse novo padrão. Então aqui eu posso mudarsep no meu novopaste função, mas não o novo padrão decollapse = "_BAR_". Como posso fazerpartial execute dessa maneira (ou seja, o padrão écollapse = "_BAR_" mas ative a configuração paracollapse = NULL se desejado)? Se isso não for possível compartial existe uma maneira de reescrever o código parapartial para fazer isso: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