[rkward-cvs] rkward/rkward/rbackend/rpackages/rkward/R public.R, 1.16, 1.17

[Thomas Friedrichsmeier]

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

Modified Files:
	public.R 
Log Message:
Allow specification of width and height for plots

Index: public.R
===================================================================
RCS file: /cvsroot/rkward/rkward/rkward/rbackend/rpackages/rkward/R/public.R,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** public.R	16 Aug 2006 16:49:55 -0000	1.16
--- public.R	18 Aug 2006 14:36:26 -0000	1.17
***************
*** 107,114 ****
  
  # Requests a graph to be written.
! "rk.graph.on" <- function(){
! 	filename <- rk.get.tempfile.name (prefix="graph", extension=".png");
! 	png (file.path (filename))
! 	cat (paste ("<img src=\"", filename,"\"><br>", sep=""),file=rk.get.output.html.file (), append=TRUE)
  }
  
--- 107,116 ----
  
  # Requests a graph to be written.
! "rk.graph.on" <- function (width=480, height=480, ...)
! {
!     filename <- rk.get.tempfile.name(prefix = "graph", extension = ".png")
!     png(filename=file.path(filename), width=width, height=height, ...)
!     cat(paste("<img src=\"", filename, "\" width=\"", width, "\" height=\"", height, "\"><br>", sep = ""), 
!         file = rk.get.output.html.file(), append = TRUE)
  }