SCM

SCM Repository

[tm] Diff of /trunk/tm/R/textdoccol.R
ViewVC logotype

Diff of /trunk/tm/R/textdoccol.R

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 775, Sat Jul 28 13:57:02 2007 UTC revision 777, Tue Aug 28 07:19:12 2007 UTC
# Line 11  Line 11 
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 = "DB1"),                     dbControl = list(useDb = FALSE, dbName = "", dbType = "DB1"),
13                     ...) {                     ...) {
14                if (attr(readerControl$reader, "FunctionGenerator"))                if (is(readerControl$reader, "FunctionGenerator"))
15                    readerControl$reader <- readerControl$reader(...)                    readerControl$reader <- readerControl$reader(...)
16    
17                if (dbControl$useDb) {                if (dbControl$useDb) {
# Line 125  Line 125 
125            function(object, origin,            function(object, origin,
126                     readerControl = list(reader = origin@DefaultReader, language = "en_US", load = FALSE),                     readerControl = list(reader = origin@DefaultReader, language = "en_US", load = FALSE),
127                     ...) {                     ...) {
128                if (attr(readerControl$reader, "FunctionGenerator"))                if (is(readerControl$reader, "FunctionGenerator"))
129                    readerControl$reader <- readerControl$reader(...)                    readerControl$reader <- readerControl$reader(...)
130    
131                object.filelist <- unlist(lapply(object, function(x) {as.character(URI(x))[2]}))                object.filelist <- unlist(lapply(object, function(x) {as.character(URI(x))[2]}))

Legend:
Removed from v.775  
changed lines
  Added in v.777

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