SCM

SCM Repository

[tm] Diff of /pkg/R/textdoccol.R
ViewVC logotype

Diff of /pkg/R/textdoccol.R

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 52, Sat Aug 12 12:43:39 2006 UTC revision 53, Thu Aug 24 13:06:50 2006 UTC
# Line 251  Line 251 
251                return (object)                return (object)
252            })            })
253    
254  setGeneric("removeStopWordsInTextDocument", function(object, stopwords) standardGeneric("removeStopWordsInTextDocument"))  setGeneric("removeStopWords", function(object, stopwords) standardGeneric("removeStopWords"))
255  setMethod("removeStopWordsInTextDocument",  setMethod("removeStopWords",
256            c("PlainTextDocument", "character"),            c("PlainTextDocument", "character"),
257            function(object, stopwords) {            function(object, stopwords) {
258                require(Rstem)                require(Rstem)
# Line 282  Line 282 
282                    return(FALSE)                    return(FALSE)
283            })            })
284    
285    setGeneric("filterIDs", function(object, IDs) standardGeneric("filterIDs"))
286    setMethod("filterIDs",
287              c("TextDocument", "numeric"),
288              function(object, IDs) {
289                  if (object@ID %in% IDs)
290                      return(TRUE)
291                  else
292                      return(FALSE)
293              })
294    
295  setGeneric("attachData", function(object, data) standardGeneric("attachData"))  setGeneric("attachData", function(object, data) standardGeneric("attachData"))
296  setMethod("attachData",  setMethod("attachData",
297            c("TextDocCol","TextDocument"),            c("TextDocCol","TextDocument"),
# Line 299  Line 309 
309                names(object@GlobalMetaData)[length(names(object@GlobalMetaData))] <- name                names(object@GlobalMetaData)[length(names(object@GlobalMetaData))] <- name
310                return(object)                return(object)
311            })            })
312    
313    setGeneric("setSubscriptable", function(object, name) standardGeneric("setSubscriptable"))
314    setMethod("setSubscriptable",
315              c("TextDocCol"),
316              function(object, name) {
317                  if (!is.character(object@GlobalMetaData$subscriptable))
318                      object <- attachMetaData(object, "subscriptable", name)
319                  else
320                      object@GlobalMetaData$subscriptable <- c(object@GlobalMetaData$subscriptable, name)
321                  return(object)
322              })
323    
324    setMethod("[",
325              signature(x = "TextDocCol", i = "ANY", j = "ANY", drop = "ANY"),
326              function(x, i, j, ... , drop) {
327                  if(missing(i))
328                      return(x)
329    
330                  object <- x
331                  object@.Data <- x@.Data[i, ..., drop = FALSE]
332                  for (m in names(object@GlobalMetaData)) {
333                      if (m %in% object@GlobalMetaData$subscriptable) {
334                          object@GlobalMetaData[[m]] <- object@GlobalMetaData[[m]][i, ..., drop = FALSE]
335                      }
336                  }
337                  return(object)
338              })
339    
340    setMethod("c",
341              signature(x = "TextDocCol"),
342              function(x, ..., recursive = TRUE){
343                  args <- list(...)
344                  if(length(args) == 0)
345                      return(x)
346                  return(as(c(as(x, "list"), ...), "TextDocCol"))
347        })

Legend:
Removed from v.52  
changed lines
  Added in v.53

root@r-forge.r-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business Powered By FusionForge