From Friedrich.Leisch@ci.tuwien.ac.at  Fri Jul 12 17:17:43 2002
From: Friedrich.Leisch@ci.tuwien.ac.at (Friedrich.Leisch@ci.tuwien.ac.at)
Date: Fri, 12 Jul 2002 18:17:43 +0200
Subject: Sweave problem with recursive call, Add.
In-Reply-To: <1026471580.3d2eb69c92729@imaphost.dkfz-heidelberg.de>
References: <1026471580.3d2eb69c92729@imaphost.dkfz-heidelberg.de>
Message-ID: <15663.295.208509.109589@galadriel.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
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._


Sweave problem with recursive call, Add.
Friedrich.Leisch@ci.tuwien.ac.at