Sweave problem with recursive call, Add.

[Friedrich.Leisch@ci.tuwien.ac.at]

[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
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._