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 886, Thu Jan 29 22:47:34 2009 UTC revision 894, Tue Mar 3 15:33:22 2009 UTC
# Line 499  Line 499 
499                    return(x)                    return(x)
500    
501                if (!all(sapply(args, inherits, "Corpus")))                if (!all(sapply(args, inherits, "Corpus")))
502                    stop("not all arguments are text document collections")                    stop("not all arguments are corpora")
503                if (DBControl(x)[["useDb"]] || any(unlist(sapply(args, DBControl)["useDb", ])))                if (DBControl(x)[["useDb"]] || any(unlist(sapply(args, DBControl)["useDb", ])))
504                    stop("concatenating text document collections with activated database is not supported")                    stop("concatenating corpora with activated database is not supported")
505    
506                result <- x                result <- x
507                for (c in args) {                for (c in args) {
# Line 596  Line 596 
596            signature(object = "Corpus"),            signature(object = "Corpus"),
597            function(object){            function(object){
598                cat(sprintf(ngettext(length(object),                cat(sprintf(ngettext(length(object),
599                                     "A text document collection with %d text document\n",                                     "A corpus with %d text document\n",
600                                     "A text document collection with %d text documents\n"),                                     "A corpus with %d text documents\n"),
601                            length(object)))                            length(object)))
602      })      })
603    

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

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