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 894, Tue Mar 3 15:33:22 2009 UTC revision 900, Fri Mar 20 16:50:27 2009 UTC
# Line 503  Line 503 
503                if (DBControl(x)[["useDb"]] || any(unlist(sapply(args, DBControl)["useDb", ])))                if (DBControl(x)[["useDb"]] || any(unlist(sapply(args, DBControl)["useDb", ])))
504                    stop("concatenating corpora with activated database is not supported")                    stop("concatenating corpora with activated database is not supported")
505    
506                result <- x                Reduce(c2, list(x, args))
               for (c in args) {  
                   result <- c2(result, c)  
               }  
               return(result)  
507            })            })
508    
509  setGeneric("c2", function(x, y, ..., meta = list(merge_date = Sys.time(), merger = Sys.getenv("LOGNAME")), recursive = TRUE) standardGeneric("c2"))  setGeneric("c2", function(x, y, ..., meta = list(merge_date = Sys.time(), merger = Sys.getenv("LOGNAME")), recursive = TRUE) standardGeneric("c2"))

Legend:
Removed from v.894  
changed lines
  Added in v.900

root@r-forge.r-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business University of Wisconsin - Madison Powered By FusionForge