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 69, Fri Nov 3 10:50:39 2006 UTC revision 70, Tue Nov 7 18:18:51 2006 UTC
# Line 595  Line 595 
595  setMethod("show",  setMethod("show",
596            signature(object = "TextDocCol"),            signature(object = "TextDocCol"),
597            function(object){            function(object){
598                cat("A text document collection with", length(object), "text document")                cat(sprintf(ngettext(length(object),
599                if (length(object) == 1)                                     "A text document collection with %d text document\n",
600                    cat("\n")                                     "A text document collection with %d text documents\n"),
601                else                            length(object)))
                   cat("s\n")  
602      })      })
603    
604  setMethod("summary",  setMethod("summary",
# Line 607  Line 606 
606            function(object){            function(object){
607                show(object)                show(object)
608                if (length(GlobalMetaData(object)) > 0) {                if (length(GlobalMetaData(object)) > 0) {
609                    cat("\nThe global metadata consists of", length(GlobalMetaData(object)), "tag-value pair")                    cat(sprintf(ngettext(length(GlobalMetaData(object)),
610                    if (length(GlobalMetaData(object)) == 1)                                                "\nThe global metadata consists of %d tag-value pair\n",
611                        cat(".\n")                                                "\nThe global metadata consists of %d tag-value pairs\n"),
612                    else                                         length(GlobalMetaData(object))))
                       cat("s.\n")  
613                    cat("Available tags are:\n")                    cat("Available tags are:\n")
614                    cat(names(GlobalMetaData(object)), "\n")                    cat(names(GlobalMetaData(object)), "\n")
615                }                }

Legend:
Removed from v.69  
changed lines
  Added in v.70

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