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 958, Sat Jun 13 06:06:42 2009 UTC revision 960, Fri Jun 26 17:43:45 2009 UTC
# Line 140  Line 140 
140  setMethod("tmMap",  setMethod("tmMap",
141            signature(object = "PCorpus", FUN = "function"),            signature(object = "PCorpus", FUN = "function"),
142            function(object, FUN, ..., lazy = FALSE) {            function(object, FUN, ..., lazy = FALSE) {
               # TODO: When should lazy mapping be conceptually available?  
143                if (lazy)                if (lazy)
144                    warning("lazy mapping is deactived when using database backend")                    warning("lazy mapping is deactived when using database backend")
145                db <- filehash::dbInit(DBControl(object)[["dbName"]], DBControl(object)[["dbType"]])                db <- filehash::dbInit(DBControl(object)[["dbName"]], DBControl(object)[["dbType"]])
# Line 332  Line 331 
331  setMethod("[[",  setMethod("[[",
332            signature(x = "SCorpus", i = "ANY", j = "ANY"),            signature(x = "SCorpus", i = "ANY", j = "ANY"),
333            function(x, i, j, ...) {            function(x, i, j, ...) {
               # TODO: For which corpora should lazy mapping be available?  
334                lazyTmMap <- meta(x, tag = "lazyTmMap", type = "corpus")                lazyTmMap <- meta(x, tag = "lazyTmMap", type = "corpus")
335                if (!is.null(lazyTmMap))                if (!is.null(lazyTmMap))
336                    .Call("copyCorpus", x, materialize(x, i))                    .Call("copyCorpus", x, materialize(x, i))

Legend:
Removed from v.958  
changed lines
  Added in v.960

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