SCM

SCM Repository

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

Diff of /pkg/R/corpus.R

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

revision 67, Wed Nov 1 17:29:59 2006 UTC revision 68, Thu Nov 2 14:06:42 2006 UTC
# Line 451  Line 451 
451  setMethod("tm_filter",  setMethod("tm_filter",
452            signature(object = "TextDocCol"),            signature(object = "TextDocCol"),
453            function(object, ..., FUN = s_filter) {            function(object, ..., FUN = s_filter) {
454                object[tm_index(object, ..., FUN)]                indices <- sapply(object, FUN, ..., GlobalMetaData = GlobalMetaData(object))
455                  object[indices]
456            })            })
457    
458  setGeneric("tm_index", function(object, ..., FUN = s_filter) standardGeneric("tm_index"))  setGeneric("tm_index", function(object, ..., FUN = s_filter) standardGeneric("tm_index"))

Legend:
Removed from v.67  
changed lines
  Added in v.68

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