[rkward-cvs] SF.net SVN: rkward: [1493] trunk/rkward/rkward/rbackend/rpackages/rkward/R/ public.R

[tfry at users.sourceforge.net]

Revision: 1493
          http://svn.sourceforge.net/rkward/?rev=1493&view=rev
Author:   tfry
Date:     2007-02-26 15:16:10 -0800 (Mon, 26 Feb 2007)

Log Message:
-----------
Add function rk.print.literal

Modified Paths:
--------------
    trunk/rkward/rkward/rbackend/rpackages/rkward/R/public.R

Modified: trunk/rkward/rkward/rbackend/rpackages/rkward/R/public.R
===================================================================
--- trunk/rkward/rkward/rbackend/rpackages/rkward/R/public.R	2007-02-26 23:08:50 UTC (rev 1492)
+++ trunk/rkward/rkward/rbackend/rpackages/rkward/R/public.R	2007-02-26 23:16:10 UTC (rev 1493)
@@ -204,6 +204,10 @@
 	}
 }
 
+"rk.print.literal" <- function (x) {
+	cat ("<pre>", paste (x, collapse="\n"), "</pre>\n", sep="", file=rk.get.output.html.file(), append=TRUE);
+}
+
 "rk.make.repos.string" <- function () {
 	x <- options ("repos")$repos
 	len <- length (x)


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.