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