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 768, Sun Jul 15 08:33:56 2007 UTC revision 769, Sun Jul 15 16:31:59 2007 UTC
# 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 (inherits(readerControl$reader, "FunctionGenerator"))                if (attr(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.768  
changed lines
  Added in v.769

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