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
This commit is contained in:
Joseph Wang 2012-08-20 15:54:36 +00:00
commit e216963630

View file

@ -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")