R
R.scripts
!!!grepExtract
*Stanford Parser の解析結果を対象に検索をして、
*必要な統語関係のフレーズを抽出する。
*stringrパッケージがインストールしてあること。
{{pre
install.packages("stringr", dependencies=T)
library(stringr)
}}

*統語解析してあるテキストファイルの入っているディレクトリーをWorking Directoryに設定。
*list.files()でファイルを確認。

{{pre
grepExtract <- function(a){
  # stringrパッケージ利用
	#copyleft 2020-01-18 sugiura@nagoya-u.jp

  hit.all <- ""
  
	files <- list.files()
	for (i in files) {

	lines.tmp <- scan(i, what="char", sep="\n")

		hit <- str_extract(lines.tmp, a)
		
		hit.all <- c(hit.all, hit)
    
  }
  hit.all
}

}}
{{ref_text grepExtract.R}}