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 |
|
|