!!!R.scripts Rのちょっとしたスクリプト

!grep
*ウインドウが開いて検索対象ファイルをえらぶ（例： myGrep("had some"）
myGrep <- function(a){
lines.tmp <- scan(choose.files(), what="char", sep="\n")
grep(a, lines.tmp, value=T)
}

*ファイル名も指定する（例： myGrep2("had some", "JPN005.txt）
myGrep2 <- function(a, b){
lines.tmp <- scan(b, what="char", sep="\n")
grep(a, lines.tmp, value=T)
}