[R] Sweave problem with recursive call, Add.

[g.wrobel@dkfz-heidelberg.de]

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())
>