SCM

SCM Repository

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

Diff of /pkg/R/textdoccol.R

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

revision 854, Sun May 25 13:15:06 2008 UTC revision 856, Fri Jun 6 11:45:39 2008 UTC
# Line 220  Line 220 
220                return(object)                return(object)
221            })            })
222  setMethod("asPlain",  setMethod("asPlain",
223            signature(object = "XMLTextDocument", FUN = "function"),            signature(object = "XMLTextDocument"),
224            function(object, FUN, ...) {            function(object, FUN, ...) {
225                corpus <- Content(object)                corpus <- Content(object)
226    
# Line 245  Line 245 
245  setMethod("asPlain",  setMethod("asPlain",
246            signature(object = "RCV1Document"),            signature(object = "RCV1Document"),
247            function(object, FUN, ...) {            function(object, FUN, ...) {
248                FUN <- convertRCV1Plain                return(convertRCV1Plain(object, ...))
               corpus <- Content(object)  
   
               # As XMLDocument is no native S4 class, restore valid information  
               class(corpus) <- "XMLDocument"  
               names(corpus) <- c("doc","dtd")  
   
               return(FUN(xmlRoot(corpus), ...))  
249            })            })
250  setMethod("asPlain",  setMethod("asPlain",
251            signature(object = "NewsgroupDocument"),            signature(object = "NewsgroupDocument"),

Legend:
Removed from v.854  
changed lines
  Added in v.856

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