Sweave-6

Sweave-2 に書いたラッパーの最後で，platex と dvipdfmx を起動してやれば，最終の pdf ファイルができるはず。
拡張子を .Rnw にも対応させることも含め，現在のラッパーは以下の如し。

ms <- function(file, encoding="euc-jp", encoding2="euc")
{
    Sweave(file, encoding=encoding)
    file <- sub(".(R|S)nw", ".tex", file)
    con <- file(file, open="r", encoding="euc-jp")
    x <- readLines(con)
    close(con)
    bb <- sum(grepl("mediabb", x))
    con <- file(file, open="w", encoding="euc-jp")
    sapply(x, function(y) {
        if (bb == 0 && grepl("begin{document}", y, fixed=TRUE)) {
            cat("\\usepackage{mediabb}\n", file=con, append=TRUE)
        }
        if (grepl("includegraphics", y)) {
            y <- sub("}", ".pdf}\n", y)
        }
        cat(sprintf("%s\n", y), file=con, append=TRUE)
    })
    close(con)
    system(sprintf("/Applications/UpTeX.app/teTeX/bin/platex -kanji=%s %s", encoding2, file))
    system(sprintf("/Applications/UpTeX.app/teTeX/bin/dvipdfmx %s", sub(".tex", ".dvi", file)))
}