R/wordfreqj.R

In austin: A package for doing things with words

wordfreqj <- function(filenames,
                      includenums=FALSE,
                      renamecols=FALSE,
                      stem=FALSE,
                      encoding=ifelse(.Platform$OS.type=="unix","UTF8","windows-1252"),
                      verbose=FALSE){

    options.string <- ""
    if (includenums) {
        options.string <- paste(options.string, "-j")
    }
    if (renamecols) {
        options.string <- paste(options.string, "-k")
    }
    if (stem) {
        options.string <- paste(options.string, "-s")
    }
    options.string <- paste(options.string, "-e", encoding)

    index <- which(grepl('austin', searchpaths()))[1]
    fullpath <- paste(searchpaths()[index], '/exec/wordfreq.jar', sep='')
    if (verbose)
        cat("looking at", fullpath, "for the java archive\n")

    cat("Running...")
    tmpfile <- tempfile('jfreq-')
    cmdline <- paste("java -Xmx1000m -jar",
                     shQuote(fullpath),
                     options.string,
                     paste(shQuote(filenames), collapse=" "),
                     "-o",
                     shQuote(tmpfile))
    if (verbose){ cat("\n", cmdline, "\n") }

    system(cmdline)
    cat("Done\n")

    fm <- read.delim(tmpfile, row.names=1)
    return( wfm(fm, word.margin=1) )
}