1## Bit of a misnomer as there are other S4 methods floating around.
2## These are outdated S4 methods that were in use before the move
3## towards reference classes and are only kept for backwards
4## compatability
5setMethod("statusText", signature="status", function(object) {
6  object$text
7})
8
9setMethod("favorited", signature="status", function(object, ...) {
10    object$favorited
11})
12
13setMethod("replyToSN", signature="status", function(object, ...) {
14    object$replyToSN
15})
16
17setMethod("created", signature="status", function(object, ...) {
18    object$created
19})
20
21setMethod("truncated", signature="status", function(object, ...) {
22    object$truncated
23})
24
25setMethod("replyToSID", signature="status", function(object, ...) {
26    object$replyToSID
27})
28
29setMethod("id", signature="status", function(object, ...){
30    object$id
31})
32
33setMethod("replyToUID", signature="status", function(object, ...) {
34    object$replyToUID
35})
36
37setMethod("statusSource", signature="status", function(object, ...) {
38    object$statusSource
39})
40
41setMethod("screenName", signature="status", function(object, ...) {
42    object$screenName
43})
44
45setMethod("screenName", signature="user", function(object, ...) {
46    object$screenName
47})
48
49setMethod("description", signature="user", function(object, ...) {
50    object$description
51})
52
53setMethod("statusesCount", signature="user", function(object, ...) {
54    object$statusesCount
55})
56
57setMethod("tweetCount", signature="user", function(object, ...) {
58    statusesCount(object)
59})
60
61setMethod("followersCount", signature="user", function(object, ...) {
62    object$followersCount
63})
64
65setMethod("favoritesCount", signature="user", function(object, ...) {
66    object$favoritesCount
67})
68
69setMethod("friendsCount", signature="user", function(object, ...) {
70    object$friendsCount
71})
72
73setMethod("userURL", signature="user", function(object, ...) {
74    object$url
75})
76
77setMethod("name", signature="user", function(object, ...) {
78    object$name
79})
80
81setMethod("created", signature="user", function(object, ...) {
82    object$created
83})
84
85setMethod("protected", signature="user", function(object, ...) {
86    object$protected
87})
88
89setMethod("verified", signature="user", function(object, ...) {
90    object$verified
91})
92
93setMethod("location", signature="user", function(object, ...) {
94    object$location
95})
96
97setMethod("id", signature="user", function(object, ...) {
98    object$id
99})
100
101setMethod("lastStatus", signature="user", function(object, ...) {
102    object$lastStatus
103})
104