R
!!!R.sample：簡単な処理のサンプル

!!特定の分析コードの内容の一覧を取得し、ファイルに保存する。
{{pre
myGrepCode <- function(a){

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

	data.tmp <- grep(a, lines.tmp, value=T)

	body.tmp <- gsub(a, "", data.tmp)

	body.tmp <- body.tmp[body.tmp != ""]
		# 空の要素を削除（空でない要素のみを残す）する「イディオム」

}
}}