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 733, Wed Apr 11 18:53:49 2007 UTC revision 741, Sat Apr 21 18:35:16 2007 UTC
# Line 3  Line 3 
3  # The "..." are additional arguments for the FunctionGenerator reader  # The "..." are additional arguments for the FunctionGenerator reader
4  setGeneric("TextDocCol", function(object,  setGeneric("TextDocCol", function(object,
5                                    readerControl = list(reader = object@DefaultReader, language = "en_US", load = FALSE),                                    readerControl = list(reader = object@DefaultReader, language = "en_US", load = FALSE),
6                                    dbControl = list(useDb = FALSE, dbName = "", dbType = "SQLite"),                                    dbControl = list(useDb = FALSE, dbName = "", dbType = "DB1"),
7                                    ...) standardGeneric("TextDocCol"))                                    ...) standardGeneric("TextDocCol"))
8  setMethod("TextDocCol",  setMethod("TextDocCol",
9            signature(object = "Source"),            signature(object = "Source"),
10            function(object,            function(object,
11                     readerControl = list(reader = object@DefaultReader, language = "en_US", load = FALSE),                     readerControl = list(reader = object@DefaultReader, language = "en_US", load = FALSE),
12                     dbControl = list(useDb = FALSE, dbName = "", dbType = "SQLite"),                     dbControl = list(useDb = FALSE, dbName = "", dbType = "DB1"),
13                     ...) {                     ...) {
14                if (attr(readerControl$reader, "FunctionGenerator"))                if (attr(readerControl$reader, "FunctionGenerator"))
15                    readerControl$reader <- readerControl$reader(...)                    readerControl$reader <- readerControl$reader(...)
# Line 469  Line 469 
469                object@.Data <- c(as(x, "list"), as(y, "list"))                object@.Data <- c(as(x, "list"), as(y, "list"))
470    
471                # Set the DBControl slot                # Set the DBControl slot
472                object@DBControl <- list(useDb = FALSE, dbName = "", dbType = "SQLite")                object@DBControl <- list(useDb = FALSE, dbName = "", dbType = "DB1")
473    
474                # Update the CMetaData tree                # Update the CMetaData tree
475                cmeta <- new("MetaDataNode", NodeID = 0, MetaData = meta, children = list(CMetaData(x), CMetaData(y)))                cmeta <- new("MetaDataNode", NodeID = 0, MetaData = meta, children = list(CMetaData(x), CMetaData(y)))
# Line 533  Line 533 
533                           .Data = list(x, ...),                           .Data = list(x, ...),
534                           DMetaData = dmeta.df,                           DMetaData = dmeta.df,
535                           CMetaData = cmeta.node,                           CMetaData = cmeta.node,
536                           DBControl = list(useDb = FALSE, dbName = "", dbType = "SQLite")))                           DBControl = list(useDb = FALSE, dbName = "", dbType = "DB1")))
537            })            })
538    
539  setMethod("length",  setMethod("length",

Legend:
Removed from v.733  
changed lines
  Added in v.741

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