Rで出来る限りawkに近い処理を行う。

unixコマンドがなくwindows+Rだけの
環境でできるかぎりunixに近い処理を行う。
[未完成]

２)wc:ＰＣにwcがはいってないとだめ。

http://www.okada.jp.org/RWiki/?%A5%D5%A5%A1%A5%A4%A5%EB%A4%F2%C6%C9%A4%DF%B9%FE%A4%E0%20tips%20%BD%B8(%BB%C3%C4%EA%C8%C7)#a8776b4f
より。

for.system <-
    if (.Platform$OS.type == "windows") {
        function (s) {
            i <- grep("[^-_:.A-Za-z0-9/????]", s)
            s[i] <- sapply(s[i], function (s) paste("?"", s, "?"", sep=""))
            s
        }
    } else {
        function (s) gsub("([][)(}{'?";&! ?t?n])", "??????1", s)
    }
wc <- function (s) {
    r <- scan(pipe(paste("wc <", for.system(s)), open="r"), n=3, quiet=TRUE)
    names(r) <- c("lines", "words", "chars")
    r
}