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 1458, Sun Jan 8 18:46:50 2017 UTC revision 1460, Mon Jan 9 17:01:04 2017 UTC
# Line 58  Line 58 
58      if (!is.null(control$reader) && !identical(control$reader, readPlain))      if (!is.null(control$reader) && !identical(control$reader, readPlain))
59          warning("custom reader is ignored")          warning("custom reader is ignored")
60    
61      content <- if (inherits(x, "VectorSource"))      content <- if (inherits(x, "VectorSource")) {
62          as.character(x$content)          if (is.character(x$content)) x$content else as.character(x$content)
63      else if (inherits(x, "DirSource")) {      } else if (inherits(x, "DirSource")) {
64          setNames(as.character(          setNames(as.character(
65                     lapply(x$filelist,                     lapply(x$filelist,
66                            function(f) paste(readContent(f, x$encoding, "text"),                            function(f) paste(readContent(f, x$encoding, "text"),

Legend:
Removed from v.1458  
changed lines
  Added in v.1460

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