Sweave engine の最初の部分だけを以下のように変更して使う。
mp = function(file, makeindex=FALSE, silent=FALSE, deletePdfs=FALSE, deleteWorkfiles=FALSE, ...) {
Sys.setlocale("LC_ALL", "ja_JP.UTF-8")
if (grepl("\\.", file) == FALSE) {
file = paste(file, "Rnw", sep=".")
}
cat("Input file:", file, "\n")
cmd = sprintf("pweave -f tex %s", file)
system(cmd)
base = sub(".Rnw", "", file)
:
