Pweave の TeXShop engine

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)
　　: