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 1101, Thu Oct 14 13:03:25 2010 UTC revision 1102, Sat Oct 16 10:01:09 2010 UTC
# Line 117  Line 117 
117  }  }
118    
119  `[[.PCorpus` <-  function(x, i) {  `[[.PCorpus` <-  function(x, i) {
120        if (is.character(i))
121            i <- match(i, meta(x, "ID", type = "local"))
122      db <- filehash::dbInit(DBControl(x)[["dbName"]], DBControl(x)[["dbType"]])      db <- filehash::dbInit(DBControl(x)[["dbName"]], DBControl(x)[["dbType"]])
123      filehash::dbFetch(db, NextMethod("[["))      filehash::dbFetch(db, NextMethod("[["))
124  }  }
125  `[[.VCorpus` <-  function(x, i) {  `[[.VCorpus` <-  function(x, i) {
126        if (is.character(i))
127            i <- match(i, meta(x, "ID", type = "local"))
128      lazyTmMap <- meta(x, tag = "lazyTmMap", type = "corpus")      lazyTmMap <- meta(x, tag = "lazyTmMap", type = "corpus")
129      if (!is.null(lazyTmMap))      if (!is.null(lazyTmMap))
130          .Call("copyCorpus", x, materialize(x, i))          .Call("copyCorpus", x, materialize(x, i))

Legend:
Removed from v.1101  
changed lines
  Added in v.1102

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