Sweave-8

fig=TRUE を使うとき，悪さをする ctable.sty を使わないことを前提として，余計な処理をしないラッパー関数。エンコーディングも euc-jp であると決める。

ms <- function(file)
{
    Sweave(file, encoding="euc-jp")
    file <- sub(".(R|S)nw", ".tex", file)
    repeat {
        system(sprintf("/Applications/UpTeX.app/teTeX/bin/platex -kanji=euc %s", file))
        con <- file(sub(".tex", ".log", file), open="r", encoding="euc-jp")
        log <- readLines(con)
        close(con)
        if (sum(grepl("Rerun to get", log)) == 0) break
    }
    system(sprintf("/Applications/UpTeX.app/teTeX/bin/dvipdfmx %s", sub(".tex", ".dvi", file)))
}