From e216963630221c568f9ef933f190826c09d85539 Mon Sep 17 00:00:00 2001 From: Joseph Wang Date: Mon, 20 Aug 2012 15:54:36 +0000 Subject: [PATCH] back out of previous change. There seem to be version dependent changes in what gets printed out and previous change causes double printing in earlier versions of R git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@13685 626c5289-ae23-0410-ae9c-e8d60b6d4f22 --- Examples/r/class/runme.R | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Examples/r/class/runme.R b/Examples/r/class/runme.R index f4f8f35de..4a2028553 100644 --- a/Examples/r/class/runme.R +++ b/Examples/r/class/runme.R @@ -28,8 +28,8 @@ square$x <- -10 square$y <- 5 print("Here is their current position:") -print(sprintf(" Circle = (%f, %f)", circle$x,circle$y)) -print(sprintf(" Square = (%f, %f)", square$x,square$y)) +sprintf(" Circle = (%f, %f)", circle$x,circle$y) +sprintf(" Square = (%f, %f)", square$x,square$y) # ----- Call some methods ----- @@ -37,7 +37,7 @@ print ("Here are some properties of the shapes:") sapply(c(circle, square), function(o) { -print(sprintf(" area = %f perimeter = %f", o$area(), o$perimeter())) +sprintf(" area = %f perimeter = %f", o$area(), o$perimeter()) }) print("Guess I'll clean up now")