추가 함수 이름이지만 인수가 더 적음

Question

my_function (i, x)에 대한 추가 이름을 작성해야합니다 (여기서 i은 1 - 25의 정수일 수 있음). 나는 그것이 my_function으로이

• my_function1 (x)는 같은 SAMES 일을하고 싶습니다 (1, x)는
• my_function2 (x)는 my_function로 SAMES (2, x)는
• my_function3 (x)의 SAMES my_function (3, x)는
• ... my_function로
• my_function25 (x)는 SAMES (25, x)를 달성 할 수

한 가지 방법이 될 것이다 :

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

하지만 그 중 25 개가 루프로 작성하는 것이 합리적입니다. X, 결과는 my_function (25로

• my_function1 (x)의 SAMES이었다 참조하고 결국 통과

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

  을하지만 i 때문에 작동하지 않습니다이 들어 나는 시도했다)

• my_function2 (X) my_function (25 SAMES, X)
• my_function3 (X) my_function (25 SAMES, X)
• ...
0,123,516

값으로 "i"를 어떻게 전달할 수 있습니까? 아니면 다른 방법이있을 것입니다 ...

왜 내가 이것을하고 싶습니까? 효율성 측면에서 다른 사람의 R 패키지를 개선하고 있지만 동시에 이전 버전과 호환되도록해야합니다.

Answer 1

이것은 말하며, 함수 프로그래밍의 일부입니다.

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 

나는 여기에 당신이 할 싶어 왜에 관한 중요한 질문이 같아요. 이것은 논쟁이 많은 관련 기능을 필요로하지 않는 것과 같은 것 같습니다. 내가 bquote 여기에 도움이 될 것입니다 생각

Answer 2

:

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) 

하지만 요점은 여전히 ​​유효 - 왜 이렇게 원하는 것?

Answer 3

글쎄, base 기능을 사용하여 동일한 결과를 얻을 수 있습니다.

비결은

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