Seeking help to define method for show() for an S4 object

An embedded and charset-unspecified text was scrubbed...
Name: not available
URL: <https://stat.ethz.ch/pipermail/r-help/attachments/20110606/697e7816/attachment.pl>
Hi,

Take a look at ?readLines  Also, you should use function(object) not
function(x) because of how the generic is defined.  Below is an
example.

Cheers,

Josh

setClass("MyClass", sealed = FALSE, representation(
  Slot1 = "vector",
  Slot2 = "vector"))

setMethod(f = "show", signature = "MyClass",
  definition = function(object) {
    cat("These are the values.  Please press enter to see the values.\n")
    readLines(n = 1)
    cat(object at Slot1)
  })

x <- new("MyClass", Slot1 = 1:3, Slot2 = 4:7)
x

On Mon, Jun 6, 2011 at 10:19 AM, Bogaso Christofer
Dear all, I have created a new S4 class with name "MyClass". Please see
below for it's definition. Now I want to create a
method for the show() function for this class. In defining this method, what
I want is, once user would like see an object of this class
some values will be displayed. Then R will ask for **press Enter**. Once
user presses enter then, remaining values will be
displayed. In the following example, I try to explain this concept.

setClass("MyClass", sealed = FALSE, representation(Slot1 = "vector", Slot2
= "vector"))

[1] "MyClass"

setMethod("show", "MyClass", definition = function(x) {
+ ? ? ? ? cat("These are the values. Please press enter to see the
values.\n")

+ ? ? ? ? ####### User will presss the Enter ##########

+ ? ? ? ? ####### Then only following figures will be visible #########

+ ? ? ? ? cat(x at Slot1)

+ ? ? ? ?} )

[1] "show"

Warning message:

For function "show", signature "MyClass": argument in method definition
changed from (x) to (object)

new("MyClass", Slot1 = 1:3, Slot2 = 4:7)
These are the values. Please press enter to see the values.

1 2 3>

Can somebody guide me how I can achieve that?

Thanks,

? ? ? ?[[alternative HTML version deleted]]

______________________________________________
R-help at 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.

Joshua Wiley
Ph.D. Student, Health Psychology
University of California, Los Angeles
http://www.joshuawiley.com/