전달 된 인수가 있는지 확인하십시오.

Question

함수에 인수로 전달 된 변수가 있는지 확인하려고합니다. this 질문에 대한 답변에 따라 나는 다음과 같은 한 :

myfunction <- function(x) { 
    stopifnot(exists(deparse(substitute(x)))) 
} 

을하지만, 작동하지 않는 인수가 평가 될 수있는 표현 인 경우 :

a=c(1:10) 
myfunction(a+10) 

어떻게 내가 캡처해야 할 수는 인수가 단순한 변수가 아닌 경우 존재하지 않는 변수?

Answer 1

하나의 옵션은 match.call (함수 호출을 반환 함)과 all.vars (식의 이름을 반환)을 결합합니다. 이 시도 : 마찬가지로

fcn <- function(x) { 
    varnames <- all.vars(match.call()) 
    for (x in varnames) 
    stopifnot(exists(x)) 
} 

fcn(a) # returns error, as expected 
#Error: exists(x) is not TRUE 

# create "a" 
a <- 2 
fcn(a + 1) # no error returned since "a" exists 

,

fcn(a + b) # error returned since "b" does not exist 
#Error: exists(x) is not TRUE 
b <- 4 
fcn(a + b) # no error since "b" now exists