nice.body <- function(){ lines.tmp <- scan(choose.files(), what="char", sep="\n") data.tmp <- grep("\\*(JPN|NS)...:\t", lines.tmp, value=T) body.tmp <- gsub("\\*(JPN|NS)...:\t", "", data.tmp) body.tmp <- body.tmp[body.tmp != ""] #空行を削除。 body.tmp <- tolower(body.tmp) word.tmp <- unlist(strsplit(body.tmp, "\\W+")) return(word.tmp) }