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 722, Sun Apr 1 15:53:58 2007 UTC revision 723, Sun Apr 1 16:12:26 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 = readPlain, language = "en_US", load = FALSE),                                    readerControl = list(reader = object@DefaultReader, language = "en_US", load = FALSE),
6                                    dbControl = list(useDb = FALSE, dbName = "", dbType = "DB1"),                                    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 = readPlain, language = "en_US", load = FALSE),                     readerControl = list(reader = object@DefaultReader, language = "en_US", load = FALSE),
12                     dbControl = list(useDb = FALSE, dbName = "", dbType = "DB1"),                     dbControl = list(useDb = FALSE, dbName = "", dbType = "DB1"),
13                     ...) {                     ...) {
14                if (attr(readerControl$reader, "FunctionGenerator"))                if (attr(readerControl$reader, "FunctionGenerator"))
# Line 108  Line 108 
108    
109  setGeneric("tmUpdate", function(object,  setGeneric("tmUpdate", function(object,
110                                  origin,                                  origin,
111                                  readerControl = list(reader = readPlain, language = "en_US", load = FALSE),                                  readerControl = list(reader = origin@DefaultReader, language = "en_US", load = FALSE),
112                                  ...) standardGeneric("tmUpdate"))                                  ...) standardGeneric("tmUpdate"))
113  # Update is only supported for directories  # Update is only supported for directories
114  # At the moment no other LoD devices are available anyway  # At the moment no other LoD devices are available anyway
115  setMethod("tmUpdate",  setMethod("tmUpdate",
116            signature(object = "TextDocCol", origin = "DirSource"),            signature(object = "TextDocCol", origin = "DirSource"),
117            function(object, origin,            function(object, origin,
118                     readerControl = list(reader = readPlain, language = "en_US", load = FALSE),                     readerControl = list(reader = origin@DefaultReader, language = "en_US", load = FALSE),
119                     ...) {                     ...) {
120                if (inherits(readerControl$reader, "FunctionGenerator"))                if (inherits(readerControl$reader, "FunctionGenerator"))
121                    readerControl$reader <- readerControl$reader(...)                    readerControl$reader <- readerControl$reader(...)

Legend:
Removed from v.722  
changed lines
  Added in v.723

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