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 769, Sun Jul 15 16:31:59 2007 UTC revision 772, Fri Jul 20 14:00:58 2007 UTC
# Line 286  Line 286 
286    
287  sFilter <- function(object, s, ...) {  sFilter <- function(object, s, ...) {
288      con <- textConnection(s)      con <- textConnection(s)
289      tokens <- scan(con, "character")      tokens <- scan(con, "character", quiet = TRUE)
290      close(con)      close(con)
291      localMetaNames <- unique(names(sapply(object, LocalMetaData)))      localMetaNames <- unique(names(sapply(object, LocalMetaData)))
292      localMetaTokens <- localMetaNames[localMetaNames %in% tokens]      localMetaTokens <- localMetaNames[localMetaNames %in% tokens]

Legend:
Removed from v.769  
changed lines
  Added in v.772

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