Actually, I guess I'm not really talking about objects. I was looking
through the scoping demo. It uses this function.

> open.account <- function(total) {

+

+     list(

+        deposit = function(amount) {

+            if(amount <= 0)

+                stop("Deposits must be positive!\n")

+            total <<- total + amount

+            cat(amount,"deposited. Your balance is", total, "\n\n")

+        },

+        withdraw = function(amount) {

+            if(amount > total)

+                stop("You don't have that much money!\n")

+            total <<- total - amount

+            cat(amount,"withdrawn.  Your balance is", total, "\n\n")

+        },

+        balance = function() {

+            cat("Your balance is", total, "\n\n")

+        }

+        )

+ }


I wanted to re-write the function so that instead of referring to *total *in
*deposit *and *withdraw *I could refer to *balance*. Something like this,


withdraw = function(amount) {
+            if(amount > total)
+                stop("You don't have that much money!\n")
 +            total <<- total - amount
+            cat(amount,"withdrawn.  Your balance is", *this,balance()*,
"\n\n")

But that doesn't work. Is it possible to do this?

Thanks.

*-- Russ Abbott*
*_____________________________________________*
***  Professor, Computer Science*
*  California State University, Los Angeles*

*  Google voice: 747-*999-5105
*  blog: *http://russabbott.blogspot.com/
  vita:  http://sites.google.com/site/russabbott/
*_____________________________________________*



On Sat, Mar 19, 2011 at 4:40 PM, Gabor Grothendieck <ggrothendi...@gmail.com
> wrote:

> On Sat, Mar 19, 2011 at 6:34 PM, Russ Abbott <russ.abb...@gmail.com>
> wrote:
> > Is it possible to refer to an object from within a method, as in *this
> *in
> > Java?  I can't find anything about this in the documentation.  Sorry if I
> > missed it.
> >
>
> Assuming you are referring to S3, the first argument to a method is
> the object (unless specified otherwise in the UseMethod call but that
> is rarely done).
>
>
> --
> Statistics & Software Consulting
> GKX Group, GKX Associates Inc.
> tel: 1-877-GKX-GROUP
> email: ggrothendieck at gmail.com
>

        [[alternative HTML version deleted]]

______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

Reply via email to