Rで関数のベクトルを別の関数に渡し、渡された各関数を名前で参照してください

Question

関数のグループ（リストまたはベクトル）を別の関数に送信したいと思います。私が送った個々の機能の名前を得るのが好きです。私はまた、それらの機能を使用したいが、それはうまく動作しているようだ。例えば

：私が等しくなるように関数func1をしたいと思い何

funcA <- function(x,y){z=x+y} 
funcB <- function(x,y){z=x-y} 

myfunc <- function(x,y,funclist=c(funcA, funcB)){ 
func1 <- deparse(substitute(funclist[1])) 
} 

は "てfuncA" であるが、この例では、それは等しい "funclist [1]"。

myfunc <- function(x,y,funclist=funcA){ 
func1 <- deparse(substitute(funclist)) 
} 

などの単一の関数名でリストを置き換えると、func1は "funcA"になります。私の欠点はdeparse（substitute（））の理解にあると思うが、私が見落としているもう一つの方法があるのだろうかと思っている。

Answer 1

funcA <- function(x,y){z=x+y} 
funcB <- function(x,y){z=x-y} 

myfunc <- function(x,y,funclist=c(funcA, funcB)){ 
    func.vec <- as.character(substitute(funclist)) 
    func1 <- func.vec[2] 
    print(func1) 
    func2 <- func.vec[3] 
    print(func2) 
} 

myfunc(1,2, c(funcA,funcB)) 
[1] "funcA" 
[1] "funcB"