[rkward-cvs] rkward/rkward/rbackend/rpackages/rkward/R public.R,1.14,1.15

[Pierre]

Update of /cvsroot/rkward/rkward/rkward/rbackend/rpackages/rkward/R
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23681/rkward/rbackend/rpackages/rkward/R

Modified Files:
	public.R 
Log Message:
Fix bug in rk.print()

Index: public.R
===================================================================
RCS file: /cvsroot/rkward/rkward/rkward/rbackend/rpackages/rkward/R/public.R,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** public.R	6 Apr 2006 12:14:05 -0000	1.14
--- public.R	14 Apr 2006 22:51:50 -0000	1.15
***************
*** 105,110 ****
  
  "rk.print" <- function(x,...) {
  	if(require("R2HTML")==TRUE) {
! 		HTML(x,...)
  	}
  }
--- 105,111 ----
  
  "rk.print" <- function(x,...) {
+ 	htmlfile <- rk.get.output.html.file()
  	if(require("R2HTML")==TRUE) {
! 		HTML(x, file=htmlfile,...)
  	}
  }