RDX2 X  dos source Cfunction(cmd,...) system(paste(Sys.getenv("COMSPEC"),"/c",cmd),...)þý cmdû ...ûþ system paste Sys.getenv COMSPECþ /cÿþÿþ processÿ” }function(file,type=pdf,title="",view=TRUE,viewer=NULL,proccom=NULL,OS=NULL,user=NULL,debug=FALSE,quiet=!debug,cleanup=TRUE){ ( file <- as.character(substitute(file)) & stem <- strsplit(file,"\\.")[[1]][1] $ if(is.null(OS)) OS <- R.version$os ) else OS <- as.character(substitute(OS)) \ if(any(!is.na(pmatch(c("osf5.1","unix","linux-gnu","linux","Linux","nx"),OS)))) OS <- "nx" J if(any(!is.na(pmatch(c("mingw32","Windows","windows"),OS)))) OS <- "win" . #if(!is.na(pmatch("darwin",OS))) OS <- "mac" ; if(any(!is.na(pmatch(c("darwin","mac"),OS)))) OS <- "mac" [ if(!any(!is.na(pmatch(c("nx","win","mac"),OS)))) stop("Can't determine operating system")  if(is.null(user)) = user <- switch(OS, "nx"=system("echo $USER",intern=TRUE), K "win"=substring(dos("set USERNAME",intern=TRUE),10)) $ sys <- switch(OS,"win"=dos,system) ) rem <- switch(OS,"win"="del ","rm -f ")  Lines <- readLines(file)  heading <- Lines[1] 4 if(!is.na(pmatch("\\code",heading))) heading <- ""  else Lines <- Lines[-1]  np <- length(Lines) Þ header <- paste("\\documentclass[12pt,a4paper]{article}\n\\title{\\textbf{",title,heading,"}}\n\\author{User: \\texttt{",user,"}}\n\\SweaveOpts{echo=TRUE} \n\\usepackage{a4wide}\n \\begin{document}\\maketitle \n",sep="") & Rnwfile <- paste(stem,".Rnw",sep="")  cat(header,file=Rnwfile)  for(i in 1:np){ 2 nxt <- strsplit(Lines[i],"\\s",perl=TRUE)[[1]] : #nxt <- strsplit(Lines[i],"\\s",fixed=TRUE,perl=T)[[1]] 6 if((length(nxt)>1) &&( nxt[1]=="")) nxt <- nxt[-1]  nxt1 <- nxt2 <- "" $ if(length(nxt)>0) nxt1 <- nxt[1] : if(length(nxt)>1) nxt2 <- paste(nxt[-1],collapse=" ") # print(rbind(nxt)) # print(rbind(nxt1)) # print(rbind(nxt2)) # print(rbind(Lines[i])) E# test1 <- any(!is.na(pmatch(c("\\code","\\graph","\\end"),nxt1))) # print(rbind(test1)) # if(test1){ A #if(any(!is.na(pmatch(c("\\code","\\graph","\\end"),nxt1)))){ 0# test.code <- !is.na(pmatch("\\code",nxt1)) # print(rbind(test.code)) M# if(test.code) lineout <- paste("\n<<>>=\n",paste(nxt2,collapse=" "),sep="") 2# test.graph <- !is.na(pmatch("\\graph",nxt1)) # print(rbind(test.graph)) Z# if(test.graph) lineout <- paste("\n<>=\n",paste(nxt2,collapse=" "),sep="") *# test.end <- !is.na(pmatch("\\end",nxt1)) # print(rbind(test.end)) O# if(test.end) lineout <- paste("\n\@\n\n",paste(nxt2,collapse=" "),sep="") # } # else lineout <- Lines[i] ,# write(lineout,file=Rnwfile,append=TRUE) < write(switch(nxt1,"\\end"=paste("\n\@\n\n",nxt2,sep=""), = "\\code"=paste("\n<<>>=\n",paste(nxt2,collapse=" "),sep=""), M "\\graph"=paste("\n<>=\n",paste(nxt2,collapse=" "),sep=""), 9 paste(Lines[i],sep="")),file=Rnwfile,append=TRUE) [ #if((i4ÿ<ÿþ?ðþþ?ÿ ==ÿ<ÿ?ðþ þþþÿ<ÿÿ<ÿ2ÿ?ðþþþþÿ nxt1ÿ nxt2 þþÿ@ÿ4ÿ<ÿþþÿBÿÿ<ÿ?ðþþþÿ@ÿ4ÿ<ÿþ?ðþÿCÿÿÿ<ÿ2ÿ?ðþþ collapse  þþþ write(ÿBÿ \endÿ  @ Cÿ6ÿ þ \codeÿ  <<>>= ÿCÿDÿ  þ6ÿ þ \graphÿ  <>= ÿCÿDÿ  þ6ÿ þÿÿ/ÿ:ÿþ6ÿ þþ ÿ7ÿ append þþþ8ÿ  \end{document}  ÿ7ÿIÿ þ require toolsþ on.exitÿ make.src Stangle7ÿþþ add þLÿÿÿ-ÿÿ.ÿÿ .Rnw6ÿ þþþOÿ þÿ ÿÿÿ ÿþþþÿMÿ?ÿÿ$ÿ%ÿ ÿ&ÿ src RþþþþþþÿÿMÿþÿLÿÿÿ-ÿÿ.ÿÿ .tex ÿ .aux ÿ .log ÿ -*.eps ÿ -*.pdf ÿ .Rnw6ÿ þþþOÿ þÿ make.pdf(ÿ ÿ ÿû optpdfû dvioptpdfû dvipsoptpdf  þþÿAÿÿ winþ Sweave7ÿÿ  ÿPÿ stylepath þTÿ7ÿÿ  ÿPÿþþÿ texfileÿÿ .tex6ÿ þþÿ dvifileÿÿ .dvi6ÿ þþÿ pdffileÿÿ .pdf6ÿ þþÿ optpdffileÿÿ opt.pdf6ÿ þþÿ psfileÿÿ .ps6ÿ þþÿ psgzfileÿZÿ .gz6ÿ þþÿAÿÿ macþÿÿÿMÿþÿ ÿ pdfþþÿÿÿþÿÿÿ pdflatexVÿþþþÿ procfileXÿþÿ ÿÿÿ openþþþþÿAÿÿ nxþÿÿÿÿþÿÿÿ(ÿ ÿ dviÿ latexVÿþ ÿÿ pdflatexVÿþ dvipdfÿ latexVÿ ; dvipdfWÿ ; rmWÿþ psÿ latexVÿ ; dvipsWÿþ ps.gzÿ latexVÿ ; dvipsWÿ ; gzipZÿþQÿÿ pdflatexVÿ ; pdfoptXÿYÿ ; rmXÿ ; mvYÿXÿþRÿÿ latexVÿ ; dvipdfWÿ ; pdfoptXÿYÿ ; rmXÿ ; mvYÿXÿ ; rmWÿþSÿÿ latexVÿ ; dvips -qWÿ ; ps2optpdfZÿ ; rmWÿZÿþþþþþþÿ\ÿ(ÿ ÿ]ÿWÿ_ÿZÿ`ÿ[ÿ ÿûQÿûRÿûSÿXÿ ÿþþÿ ÿÿÿÿÿþÿÿÿ(ÿ ÿ]ÿ xdvi_ÿû`ÿ gv ÿûQÿûRÿûSÿ xpdfþþþþþþþþþÿAÿÿ winþÿÿÿÿþÿÿÿ(ÿ ÿ]ÿÿ latexVÿþ ÿÿ pdflatexVÿþþþþþþÿ\ÿ(ÿ ÿ]ÿWÿ ÿXÿ ÿþþÿ ÿÿÿÿÿþÿÿÿ(ÿ ÿ]ÿ windvi ÿ startþþþþþþþþþÿÿÿþ'ÿÿ Sorry can't handle type ÿþþÿ sysproc-ÿÿ*ÿÿÿþþþþÿÿÿÿ !=aÿþ8ÿ Problem with processing þ8ÿ Processing OK þþþþÿ ÿÿÿÿÿþ'ÿ Unknown viewer sorryþÿ viewcomÿÿ\ÿþþþÿ sysview-ÿcÿ*ÿÿÿþþþÿÿÿ8ÿÿ viewcom iscÿ  þþÿbÿdÿþ8ÿ Problem with viewing þ8ÿ Viewing OK þþþþÿ qnÿ Keep \ÿ ? (default no): 6ÿ þþÿ reply readlineeÿþþÿ keepprocÿ$ÿ%ÿfÿ&ÿ yes YES Yesþþþþþÿÿhÿþÿ-ÿÿ.ÿ\ÿþþ8ÿÿ\ÿ removed þþþ8ÿÿ\ÿ kept þþþþ8ÿÿ Output file:\ÿ  þþþþþ invisibleþþþ