Zusätzlicher Funktionsname, aber mit weniger Argumenten

Question

Ich muss einen zusätzlichen Namen für my_function (i, x) erstellen (wobei i eine ganze Zahl von 1 bis 25 sein kann). Ich mag es wie dies

• my_function1 (x) Sames als my_function (1, x)
• my_function2 (x) Sames als my_function (2, x)
• my_function3 (x) sames arbeiten wie my_function (3, x)
• ...
• my_function25 (x) sames als my_function (25, x)

Eine Möglichkeit, dies würde zu tun erreichen sein:

my_function1 <- function (x) my_function(1, x) 
my_function2 <- function (x) my_function(2, x) 
my_function3 <- function (x) my_function(3, x) 
... 

Aber da es 25 von ihnen gibt, wäre es vernünftig, es in einer Schleife zu machen. Dafür habe ich versucht:

for(i in 1:25){ 
    assign(paste("my_function",i,sep=""),function(x) my_function(i,x)) 
} 

, aber es funktioniert nicht, da i durch Bezugnahme und am Ende ging das Ergebnis

war

• my_function1 (x) Sames als my_function (25, x)
• my_function2 (x) Sames als my_function (25, x)
• my_function3 (x) Sames als my_function (25, x)
• ...

Wie kann ich "i" nach Wert übergeben? Oder vielleicht gibt es einen anderen Weg ...

Warum sollte ich das tun? Ich verbessere irgendjemand anderes R-Paket in Bezug auf die Effizienz, aber gleichzeitig muss ich es mit der alten Version kompatibel sein.

Answer 1

Dies wird Curry genannt und ist ein Teil der funktionalen Programmierung.

library(functional) 

myf <- function(a,x) cat(a,x,"\n") 
myf1 <- Curry(myf, a=1) 
myf1(5) 
for(i in seq(25)) assign(paste0("myf",i), Curry(myf,a=i)) 
> myf15(5) 
15 5 

Ich denke, es ist eine wichtige Frage hier wie zu warum Sie dies tun wollen würde. Das scheint genau die Art von Dingen zu sein, für die Sie Argumente brauchen, für die es nicht viele verwandte Funktionen gibt.

Answer 2

Ich denke bquote hier helfen:

for(i in 1:2){ 
    assign(paste("my_function",i,sep=""), bquote(function(x) my_function(i = .(i) , x))) 
} 

>my_function2 
# function(x) my_function(i = 2L, x) 

Aber der Punkt steht noch - warum sollten Sie wollen, dies zu tun?

Answer 3

Nun, Sie können das gleiche Ergebnis erreichen, mit base Funktionen auch.

Der Trick ist zu zwingen (force) die Auswertung von i bei jeder Iteration und weisen Sie Ihre Funktion in der .Globalenv (oder der Umgebung, die Sie mögen)

my_function <- function(a, b) a + b 


lapply(1:10, function(i) { 
    force(i) 
    assign(paste0("my_function", i), function(x) my_function(i, x), envir = .GlobalEnv) 
} 
     ) 


my_function1(10) 
## [1] 11 

my_function9(10) 
## [1] 19