SCM

SCM Repository

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

Diff of /trunk/tm/R/textdoccol.R

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

revision 63, Thu Oct 26 14:59:09 2006 UTC revision 64, Sun Oct 29 14:29:43 2006 UTC
# Line 366  Line 366 
366                return(object)                return(object)
367            })            })
368    
369  setGeneric("tm_filter", function(object, ..., FUN = s.filter) standardGeneric("tm_filter"))  setGeneric("tm_filter", function(object, ..., FUN = s_filter) standardGeneric("tm_filter"))
370  setMethod("tm_filter",  setMethod("tm_filter",
371            signature(object = "TextDocCol"),            signature(object = "TextDocCol"),
372            function(object, ..., FUN = s.filter) {            function(object, ..., FUN = s_filter) {
373                object[tm_index(object, ..., FUN)]                object[tm_index(object, ..., FUN)]
374            })            })
375    
376  setGeneric("tm_index", function(object, ..., FUN = s_filter) standardGeneric("tm_index"))  setGeneric("tm_index", function(object, ..., FUN = s_filter) standardGeneric("tm_index"))
377  setMethod("tm_index",  setMethod("tm_index",
378            signature(object = "TextDocCol"),            signature(object = "TextDocCol"),
379            function(object, ..., FUN = s.filter) {            function(object, ..., FUN = s_filter) {
380                sapply(object, FUN, ..., GlobalMetaData = GlobalMetaData(object))                sapply(object, FUN, ..., GlobalMetaData = GlobalMetaData(object))
381            })            })
382    

Legend:
Removed from v.63  
changed lines
  Added in v.64

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