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 909, Sun Mar 22 12:45:59 2009 UTC revision 938, Sat Apr 25 19:05:50 2009 UTC
# Line 617  Line 617 
617                }                }
618      })      })
619    
620  setGeneric("inspect", function(object) standardGeneric("inspect"))  inspect <- function(x) UseMethod("inspect", x)
621  setMethod("inspect",  inspect.Corpus <- function(x) {
622            signature("Corpus"),      summary(x)
           function(object) {  
               summary(object)  
623                cat("\n")                cat("\n")
624                if (DBControl(object)[["useDb"]] && require("filehash")) {      if (DBControl(x)[["useDb"]] && require("filehash")) {
625                    db <- dbInit(DBControl(object)[["dbName"]], DBControl(object)[["dbType"]])          db <- dbInit(DBControl(x)[["dbName"]], DBControl(x)[["dbType"]])
626                    show(dbMultiFetch(db, unlist(object)))          show(dbMultiFetch(db, unlist(x)))
627                }                }
628                else                else
629                    print(noquote(lapply(object, identity)))          print(noquote(lapply(x, identity)))
630            })  }
631    
632  # No metadata is checked  # No metadata is checked
633  setGeneric("%IN%", function(x, y) standardGeneric("%IN%"))  setGeneric("%IN%", function(x, y) standardGeneric("%IN%"))

Legend:
Removed from v.909  
changed lines
  Added in v.938

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