81 |
list() |
list() |
82 |
|
|
83 |
if (x$Vectorized) |
if (x$Vectorized) |
84 |
mapply(function(x, id) readerControl$reader(x, readerControl$language, id), |
tdl <- mapply(function(x, id) readerControl$reader(x, readerControl$language, id), |
85 |
pGetElem(x), |
pGetElem(x), |
86 |
id = as.character(seq_len(x$Length)), |
id = as.character(seq_len(x$Length)), |
87 |
SIMPLIFY = FALSE) |
SIMPLIFY = FALSE) |
307 |
print(noquote(lapply(x, identity))) |
print(noquote(lapply(x, identity))) |
308 |
} |
} |
309 |
|
|
|
# No metadata is checked |
|
|
`%IN%` <- function(x, y) UseMethod("%IN%", y) |
|
|
`%IN%.PCorpus` <- function(x, y) { |
|
|
db <- filehash::dbInit(DBControl(y)[["dbName"]], DBControl(y)[["dbType"]]) |
|
|
any(unlist(lapply(y, function(x, z) {x %in% Content(z)}, x))) |
|
|
} |
|
|
`%IN%.VCorpus` <- function(x, y) x %in% y |
|
|
|
|
310 |
lapply.PCorpus <- function(X, FUN, ...) { |
lapply.PCorpus <- function(X, FUN, ...) { |
311 |
db <- filehash::dbInit(DBControl(X)[["dbName"]], DBControl(X)[["dbType"]]) |
db <- filehash::dbInit(DBControl(X)[["dbName"]], DBControl(X)[["dbType"]]) |
312 |
lapply(filehash::dbMultiFetch(db, unlist(X)), FUN, ...) |
lapply(filehash::dbMultiFetch(db, unlist(X)), FUN, ...) |