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 1074, Fri May 28 12:58:59 2010 UTC revision 1095, Wed Aug 25 19:05:38 2010 UTC
# Line 234  Line 234 
234      if (inherits(x, "PCorpus"))      if (inherits(x, "PCorpus"))
235          stop("concatenation of corpora with underlying databases is not supported")          stop("concatenation of corpora with underlying databases is not supported")
236    
237      Reduce(c2, base::c(list(x), args))      l <- base::c(list(x), args)
238        if (recursive)
239            Reduce(c2, l)
240        else {
241            l <- do.call("c", lapply(l, unclass))
242            .VCorpus(l,
243                     cmeta = .MetaDataNode(),
244                     dmeta = data.frame(MetaID = rep(0, length(l)), stringsAsFactors = FALSE))
245        }
246  }  }
247    
248  c.TextDocument <- function(x, ..., recursive = FALSE) {  c.TextDocument <- function(x, ..., recursive = FALSE) {

Legend:
Removed from v.1074  
changed lines
  Added in v.1095

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