g.wrobel@dkfz-heidelberg.de
2002-Jul-12 10:59 UTC
[R] Sweave problem with recursive call, Add.
This diff would be better. Gunnar -------------- next part -------------- 268a269,270> > ocf <- character()285,286c287,298 < < tmpcon <- textConnection("output", "w") ---> > options(warn=-1) > if (is.finite(max(as.integer(sub("output","",apropos("output"))),na.rm=TRUE))) { > oc <- max(as.integer(sub("output","",apropos("output"))),na.rm=TRUE)+1 > } else { > oc <- 0 > } > options(warn=0) > > tmpcon <- textConnection(paste("output",oc,sep=""), "w") > ocf <- c(ocf,paste("output",oc,sep="")) > output <- get(paste("output",oc,sep=""))312d323 < remove(output) 319a331,332> rm(list=ocf,envir=globalenv()) >
Friedrich.Leisch@ci.tuwien.ac.at
2002-Jul-12 16:17 UTC
Sweave problem with recursive call, Add.
[moved from r-help tp r-devel, which is the proper place for mails like this] Thanks a lot, I'll incorporate the changes (or something along those lines) together with my next Sweave updates. Best, Fritz>>>>> On Fri, 12 Jul 2002 12:59:40 +0200 (CEST), >>>>> g wrobel (gw) wrote:> This diff would be better. > Gunnar 268a269,270 >> >> ocf <- character() > 285,286c287,298 > < > < tmpcon <- textConnection("output", "w") > --- >> >> options(warn=-1) >> if (is.finite(max(as.integer(sub("output","",apropos("output"))),na.rm=TRUE))) { >> oc <- max(as.integer(sub("output","",apropos("output"))),na.rm=TRUE)+1 >> } else { >> oc <- 0 >> } >> options(warn=0) >> >> tmpcon <- textConnection(paste("output",oc,sep=""), "w") >> ocf <- c(ocf,paste("output",oc,sep="")) >> output <- get(paste("output",oc,sep="")) > 312d323 > < remove(output) > 319a331,332 >> rm(list=ocf,envir=globalenv()) >> -.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.- r-devel mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html Send "info", "help", or "[un]subscribe" (in the "body", not the subject !) To: r-devel-request@stat.math.ethz.ch _._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._