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 730, Wed Apr 11 02:15:10 2007 UTC revision 733, Wed Apr 11 18:53:49 2007 UTC
# Line 2  Line 2 
2    
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")) standardGeneric("TextDocCol"))                                    dbControl = list(useDb = FALSE, dbName = "", dbType = "SQLite"),
7                                      ...) 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 = "SQLite"),
13                       ...) {
14                if (attr(readerControl$reader, "FunctionGenerator"))                if (attr(readerControl$reader, "FunctionGenerator"))
15                    readerControl$reader <- readerControl$reader(...)                    readerControl$reader <- readerControl$reader(...)
16    

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

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