関数の引数として文字列値を渡す

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) 
    [...] 
}