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 859, Wed Jul 9 13:39:52 2008 UTC revision 860, Fri Jul 18 05:05:20 2008 UTC
# Line 620  Line 620 
620  setMethod("lapply",  setMethod("lapply",
621            signature(X = "Corpus"),            signature(X = "Corpus"),
622            function(X, FUN, ...) {            function(X, FUN, ...) {
               print("lapply")  
623                if (DBControl(X)[["useDb"]]) {                if (DBControl(X)[["useDb"]]) {
624                    db <- dbInit(DBControl(X)[["dbName"]], DBControl(X)[["dbType"]])                    db <- dbInit(DBControl(X)[["dbName"]], DBControl(X)[["dbType"]])
625                    result <- lapply(dbMultiFetch(db, unlist(X)), FUN, ...)                    result <- lapply(dbMultiFetch(db, unlist(X)), FUN, ...)

Legend:
Removed from v.859  
changed lines
  Added in v.860

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