[rkward-cvs] SF.net SVN: rkward:[2480] trunk/rkward

[tfry at users.sourceforge.net]

Revision: 2480
          http://rkward.svn.sourceforge.net/rkward/?rev=2480&view=rev
Author:   tfry
Date:     2009-05-14 12:29:14 +0000 (Thu, 14 May 2009)

Log Message:
-----------
slight simplification

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

Modified: trunk/rkward/ChangeLog
===================================================================
--- trunk/rkward/ChangeLog	2009-05-14 12:18:27 UTC (rev 2479)
+++ trunk/rkward/ChangeLog	2009-05-14 12:29:14 UTC (rev 2480)
@@ -1,6 +1,6 @@
 - Fixed: Make built-in editor work again for file.edit ()
 - (Almost) all plugins now write a header to the output window		TODO: work in progress; which ones should not?
-- Add makeHeaderCode convenience function for use inside plugins	TODO: document
+- Add convenience function "makeHeaderCode()" for use inside plugins	TODO: document, adjust for tests (->rk.describe.alternative())
 - Adjust some icons
 - Add "Run again" link for plugin generated output		TODO: revisit plugins without header
 - Fixed: All objects in .Globalenv would be revisited if a single object was added / removed		TODO: backport? (r2466, 2473)

Modified: trunk/rkward/rkward/rbackend/rpackages/rkward/R/public.R
===================================================================
--- trunk/rkward/rkward/rbackend/rpackages/rkward/R/public.R	2009-05-14 12:18:27 UTC (rev 2479)
+++ trunk/rkward/rkward/rbackend/rpackages/rkward/R/public.R	2009-05-14 12:29:14 UTC (rev 2480)
@@ -311,9 +311,8 @@
 		nfile = tempfile()
 		env = environment (file)
 		dput (file, file=nfile)
-		file = nfile
-		.Call("rk.edit.files", file, title, name)
-		x <- dget (file)
+		.Call("rk.edit.files", nfile, title, name)
+		x <- dget (nfile)
 		environment (x) <- env
 		return (x)
 	}


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