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

[tfry at users.sourceforge.net]

Revision: 2716
          http://rkward.svn.sourceforge.net/rkward/?rev=2716&view=rev
Author:   tfry
Date:     2009-11-30 18:27:43 +0000 (Mon, 30 Nov 2009)

Log Message:
-----------
Make sure to keep comments and whitespace when editing functions

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

Modified: trunk/rkward/ChangeLog
===================================================================
--- trunk/rkward/ChangeLog	2009-11-27 23:13:40 UTC (rev 2715)
+++ trunk/rkward/ChangeLog	2009-11-30 18:27:43 UTC (rev 2716)
@@ -1,3 +1,4 @@
+- Fixed: Calling "fix(my.fun)" would remove comments
 - Fixed: Removing "@CRAN@" from the repositories would break package installation
 
 --- Version 0.5.2 - Oct-26-2009

Modified: trunk/rkward/rkward/rbackend/rpackages/rkward/R/public.R
===================================================================
--- trunk/rkward/rkward/rbackend/rpackages/rkward/R/public.R	2009-11-27 23:13:40 UTC (rev 2715)
+++ trunk/rkward/rkward/rbackend/rpackages/rkward/R/public.R	2009-11-30 18:27:43 UTC (rev 2716)
@@ -327,7 +327,7 @@
 	if (!is.character (file)) {
 		nfile = tempfile()
 		env = environment (file)
-		dput (file, file=nfile)
+		dput (file, file=nfile, control=c ("useSource", "keepNA", "keepInteger", "showAttributes"))
 		.Call("rk.edit.files", nfile, title, name)
 		x <- dget (nfile)
 		environment (x) <- env


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