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 905, Sat Mar 21 10:13:08 2009 UTC revision 938, Sat Apr 25 19:05:50 2009 UTC
# Line 16  Line 16 
16                if (is(readerControl$reader, "FunctionGenerator"))                if (is(readerControl$reader, "FunctionGenerator"))
17                    readerControl$reader <- readerControl$reader(...)                    readerControl$reader <- readerControl$reader(...)
18                if (is.null(readerControl$language))                if (is.null(readerControl$language))
19                    readerControl$language = "en_US"                    readerControl$language <- "en_US"
20                if (is.null(readerControl$load))                if (is.null(readerControl$load) || (!object@LoDSupport))
21                    readerControl$load = TRUE                    readerControl$load <- TRUE
22    
23                if (dbControl$useDb && require("filehash")) {                if (dbControl$useDb && require("filehash")) {
24                    if (!dbCreate(dbControl$dbName, dbControl$dbType))                    if (!dbCreate(dbControl$dbName, dbControl$dbType))
# Line 32  Line 32 
32                else                else
33                    list()                    list()
34    
35                  if ((!dbControl$useDb) && object@Vectorized)
36                      tdl <- lapply(mapply(c, pGetElem(object), id = seq_len(object@Length), SIMPLIFY = FALSE),
37                                    function(x) readerControl$reader(x[c("content", "uri")],
38                                                                     readerControl$load,
39                                                                     readerControl$language,
40                                                                     as.character(x$id)))
41                  else {
42                counter <- 1                counter <- 1
43                while (!eoi(object)) {                while (!eoi(object)) {
44                    object <- stepNext(object)                    object <- stepNext(object)
45                    elem <- getElem(object)                    elem <- getElem(object)
                   # If there is no Load on Demand support  
                   # we need to load the corpus into memory at startup  
                   if (!object@LoDSupport)  
                       readerControl$load <- TRUE  
46                    doc <- readerControl$reader(elem, readerControl$load, readerControl$language, as.character(counter))                    doc <- readerControl$reader(elem, readerControl$load, readerControl$language, as.character(counter))
47                    if (dbControl$useDb && require("filehash")) {                    if (dbControl$useDb && require("filehash")) {
48                        dbInsert(db, ID(doc), doc)                        dbInsert(db, ID(doc), doc)
# Line 56  Line 59 
59                    }                    }
60                    counter <- counter + 1                    counter <- counter + 1
61                }                }
62                  }
63    
64                df <- data.frame(MetaID = rep(0, length(tdl)), stringsAsFactors = FALSE)                df <- data.frame(MetaID = rep(0, length(tdl)), stringsAsFactors = FALSE)
65                if (dbControl$useDb && require("filehash")) {                if (dbControl$useDb && require("filehash")) {
# Line 613  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.905  
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