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 909, Sun Mar 22 12:45:59 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")) {

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

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