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 1327, Mon Apr 14 15:35:38 2014 UTC revision 1328, Tue Apr 15 09:46:28 2014 UTC
# Line 195  Line 195 
195                class = c("VCorpus", "Corpus"))                class = c("VCorpus", "Corpus"))
196  }  }
197    
 c.TextDocument <-  
 function(..., recursive = FALSE)  
 {  
     args <- list(...)  
     x <- args[[1L]]  
   
     if (length(args) == 1L)  
         return(x)  
   
     if (!all(unlist(lapply(args, inherits, class(x)))))  
         stop("not all arguments are text documents")  
   
     structure(list(content = args,  
                    meta = CorpusMeta(),  
                    dmeta = data.frame(row.names = seq_along(args))),  
               class = c("VCorpus", "Corpus"))  
 }  
   
198  as.list.PCorpus <- as.list.VCorpus <-  as.list.PCorpus <- as.list.VCorpus <-
199  function(x, ...)  function(x, ...)
200      content(x)      content(x)

Legend:
Removed from v.1327  
changed lines
  Added in v.1328

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