SCM

SCM Repository

[tm] Diff of /pkg/R/source.R
ViewVC logotype

Diff of /pkg/R/source.R

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

revision 694, Sun Dec 31 14:47:46 2006 UTC revision 698, Sat Jan 6 17:05:44 2007 UTC
# Line 125  Line 125 
125                    Content = content, Position = 0)                    Content = content, Position = 0)
126            })            })
127    
128  setGeneric("step_next", function(object) standardGeneric("step_next"))  setGeneric("stepNext", function(object) standardGeneric("stepNext"))
129  setMethod("step_next",  setMethod("stepNext",
130            signature(object = "DirSource"),            signature(object = "DirSource"),
131            function(object) {            function(object) {
132                object@Position <- object@Position + 1                object@Position <- object@Position + 1
133                object                object
134            })            })
135  setMethod("step_next",  setMethod("stepNext",
136            signature(object = "CSVSource"),            signature(object = "CSVSource"),
137            function(object) {            function(object) {
138                object@Position <- object@Position + 1                object@Position <- object@Position + 1
139                object                object
140            })            })
141  setMethod("step_next",  setMethod("stepNext",
142            signature(object = "ReutersSource"),            signature(object = "ReutersSource"),
143            function(object) {            function(object) {
144                object@Position <- object@Position + 1                object@Position <- object@Position + 1
145                object                object
146            })            })
147  setMethod("step_next",  setMethod("stepNext",
148            signature(object = "GmaneSource"),            signature(object = "GmaneSource"),
149            function(object) {            function(object) {
150                object@Position <- object@Position + 1                object@Position <- object@Position + 1
151                object                object
152            })            })
153    
154  setGeneric("get_elem", function(object) standardGeneric("get_elem"))  setGeneric("getElem", function(object) standardGeneric("getElem"))
155  setMethod("get_elem",  setMethod("getElem",
156            signature(object = "DirSource"),            signature(object = "DirSource"),
157            function(object) {            function(object) {
158                filename <- object@FileList[object@Position]                filename <- object@FileList[object@Position]
159                list(content = readLines(filename),                list(content = readLines(filename),
160                     uri = substitute(file(filename)))                     uri = substitute(file(filename)))
161            })            })
162  setMethod("get_elem",  setMethod("getElem",
163            signature(object = "CSVSource"),            signature(object = "CSVSource"),
164            function(object) {            function(object) {
165                list(content = object@Content[object@Position],                list(content = object@Content[object@Position],
166                     uri = object@URI)                     uri = object@URI)
167            })            })
168  setMethod("get_elem",  setMethod("getElem",
169            signature(object = "ReutersSource"),            signature(object = "ReutersSource"),
170            function(object) {            function(object) {
171                # Construct a character representation from the XMLNode                # Construct a character representation from the XMLNode
# Line 175  Line 175 
175    
176                list(content = virtual.file, uri = object@URI)                list(content = virtual.file, uri = object@URI)
177            })            })
178  setMethod("get_elem",  setMethod("getElem",
179            signature(object = "GmaneSource"),            signature(object = "GmaneSource"),
180            function(object) {            function(object) {
181                # Construct a character representation from the XMLNode                # Construct a character representation from the XMLNode

Legend:
Removed from v.694  
changed lines
  Added in v.698

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