[rkward-cvs] SF.net SVN: rkward: [1766] trunk/rkward/rkward/robjectviewer.cpp

[tfry at users.sourceforge.net]

Revision: 1766
          http://svn.sourceforge.net/rkward/?rev=1766&view=rev
Author:   tfry
Date:     2007-03-30 02:26:04 -0700 (Fri, 30 Mar 2007)

Log Message:
-----------
Use maximum permissible print width in RObjectViewer, as suggested by kapatp

Modified Paths:
--------------
    trunk/rkward/rkward/robjectviewer.cpp

Modified: trunk/rkward/rkward/robjectviewer.cpp
===================================================================
--- trunk/rkward/rkward/robjectviewer.cpp	2007-03-30 06:17:35 UTC (rev 1765)
+++ trunk/rkward/rkward/robjectviewer.cpp	2007-03-30 09:26:04 UTC (rev 1766)
@@ -2,7 +2,7 @@
                           robjectviewer  -  description
                              -------------------
     begin                : Tue Aug 24 2004
-    copyright            : (C) 2004 by Thomas Friedrichsmeier
+    copyright            : (C) 2004, 2007 by Thomas Friedrichsmeier
     email                : tfry at users.sourceforge.net
  ***************************************************************************/
 
@@ -54,8 +54,14 @@
 		}
 	}
 	view_area->append (i18n("\nResult of 'print (") + object->getFullName () + i18n(")':\n"));
-	
-	RCommand *command = new RCommand ("print (" + object->getFullName () + ')', RCommand::App, QString::null, this);
+
+	// make sure to print as wide as possible
+	RCommand *command = new RCommand ("local({\n"
+	                                  "\trk.temp.width.save <- getOption(\"width\")\n"
+	                                  "\toptions(width=10000)\n"
+	                                  "\ton.exit(options(width=rk.temp.width.save))\n"
+	                                  "\tprint(" + object->getFullName () + ")\n"
+	                                  "})", RCommand::App, QString::null, this);
 	RKGlobals::rInterface ()->issueCommand (command, 0);
 	
 	caption = i18n("Object Viewer: ") + object->getShortName ();


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