SCM Repository
[tm] Diff of /pkg/R/corpus.R
Diff of /pkg/R/corpus.R
Parent Directory
| 
Revision Log
| 
Patch
| 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 |
|
|
