use print to output sprintf

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@13650 626c5289-ae23-0410-ae9c-e8d60b6d4f22

1 files changed, 3 insertions, 3 deletions

diff --git a/Examples/r/class/runme.R b/Examples/r/class/runme.R
index 4a2028553..f4f8f35de 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:")
-sprintf("    Circle = (%f, %f)", circle$x,circle$y)
-sprintf("    Square = (%f, %f)", square$x,square$y)
+print(sprintf("    Circle = (%f, %f)", circle$x,circle$y))
+print(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) {
-sprintf("       area = %f perimeter = %f", o$area(),  o$perimeter())
+print(sprintf("       area = %f perimeter = %f", o$area(),  o$perimeter()))
 })
 
 print("Guess I'll clean up now")