#!/usr/bin/Rscript

library(pgfSweave)
args <- commandArgs(T)

pgfSweave(args[1],pdf=TRUE,quiet=FALSE)