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 723, Sun Apr 1 16:12:26 2007 UTC revision 807, Sat Jan 5 10:35:53 2008 UTC
# Line 52  Line 52 
52            function(object) {            function(object) {
53                object <- substitute(file(object))                object <- substitute(file(object))
54                con <- eval(object)                con <- eval(object)
55                content <- scan(con, what = "character")                content <- apply(read.csv(con), 1, paste, collapse = " ")
               close(con)  
56                new("CSVSource", LoDSupport = FALSE, URI = object,                new("CSVSource", LoDSupport = FALSE, URI = object,
57                    Content = content, Position = 0, DefaultReader = readPlain)                    Content = content, Position = 0, DefaultReader = readPlain)
58            })            })
# Line 62  Line 61 
61            function(object) {            function(object) {
62                object <- substitute(object)                object <- substitute(object)
63                con <- eval(object)                con <- eval(object)
64                content <- scan(con, what = "character")                content <- apply(read.csv(con), 1, paste, collapse = " ")
               close(con)  
65                new("CSVSource", LoDSupport = FALSE, URI = object,                new("CSVSource", LoDSupport = FALSE, URI = object,
66                    Content = content, Position = 0, DefaultReader = readPlain)                    Content = content, Position = 0, DefaultReader = readPlain)
67            })            })

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

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