함수에서 인수로 문자열 값 전달

Question

데이터를 검색하고 조건 값이 특정 문자열과 같은 환경 값을 찾으려는 함수를 만들고 싶습니다.

Error: evaluation nested too deeply: infinite recursion/options(expressions=)?

Error during wrapup: evaluation nested too deeply: infinite recursion/options(expressions

subset = function(data, ttt="string") { 
    subset.cond <- subset(data, Condition==ttt) 
    row.cond <- subset.cond[ which(subset.cond$experience != 0),] 
    row.cond$experience <- factor(row.cond$experience) #drop factor levels 
    exp.cond <- levels(row.cond$experience) #get experience names 
    cond <- data[ which(data$experience==exp.cond), ] #cleaned data 
    return(list(subset.cond=subset.cond,row.cond=row.cond,exp.cond=exp.cond)) 
} 

subset(data=data_1, ttt="drug1") 

사람이 어떤 조언이 있습니까 :이 그러나이 오류를 얻을? 감사합니다.

Answer 1

무한 재귀 함수를 작성했습니다. 너 의도 한거야? subset 함수의 첫 번째 행은 subset을 호출합니다 (즉, 자신을 호출합니다).

기본 기능 subset을 사용하도록 지정하여이 기능을 사용할 수 있습니다. 예 :

subset = function(data, ttt="string") { 
    subset.cond <- base::subset(data, Condition==ttt) 
    [...] 
}