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

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

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

*ファイル名も指定する（例： myGrep2("had some", "JPN005.txt）
**ただし、作業ディレクトリーが検索対象ファイルのあるディレクトリー（フォルダ）にあること
{{pre
myGrep2 <- function(a, b){
lines.tmp <- scan(b, what="char", sep="\n")
grep(a, lines.tmp, value=T)
}
}}
!myAllTypes.R
*NICE形式のファイルの異なり語の一覧の出力
*作業ディレクトリーをフォルダー内に
*結果を保存するファイルをフォルダー外に作成


!checkWordList.R
*Wordリストにあるかどうかチェック
*ないものだけを出力