ちょっと注意(自分用メモ)

上の単語帳関連。下のようになるとちょっと変なことになる。

ask_ja('tango[as.logical((tango$group == "toefl.listening.advanced") * (tango$num_of_right == 1)),][sample(20,20),]')

というのも

tango[as.logical((tango$group == "toefl.listening.advanced") * (tango$num_of_right == 1)),][sample(20,20),]

をevalとかでやっていて、代入される側でもsampleが行われるから。こういうのがやりたい場合は

n <- 20
sample <- sample(n,n)
ask_ja('tango[as.logical((tango$group == "toefl.listening.advanced") * (tango$num_of_right == 1)),][sample,]')

とやってやるとよい。