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:
parent
a6764a156c
commit
e216963630
1 changed files with 3 additions and 3 deletions
|
|
@ -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")
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue