43 |
if (dbControl$useDb) { |
if (dbControl$useDb) { |
44 |
dbInsert(db, "DMetaData", df) |
dbInsert(db, "DMetaData", df) |
45 |
dmeta.df <- data.frame(key = "DMetaData", subset = I(list(NA))) |
dmeta.df <- data.frame(key = "DMetaData", subset = I(list(NA))) |
|
dbDisconnect(db) |
|
46 |
} |
} |
47 |
else |
else |
48 |
dmeta.df <- df |
dmeta.df <- df |
144 |
db[[id]] <- FUN(object[[i]], ..., DMetaData = DMetaData(object)) |
db[[id]] <- FUN(object[[i]], ..., DMetaData = DMetaData(object)) |
145 |
i <- i + 1 |
i <- i + 1 |
146 |
} |
} |
|
dbDisconnect(db) |
|
147 |
} |
} |
148 |
else |
else |
149 |
result@.Data <- lapply(object, FUN, ..., DMetaData = DMetaData(object)) |
result@.Data <- lapply(object, FUN, ..., DMetaData = DMetaData(object)) |
283 |
if (dbExists(db, ID(data))) |
if (dbExists(db, ID(data))) |
284 |
warning("document with identical ID already exists") |
warning("document with identical ID already exists") |
285 |
dbInsert(db, ID(data), data) |
dbInsert(db, ID(data), data) |
|
dbDisconnect(db) |
|
286 |
object@.Data[[length(object)+1]] <- ID(data) |
object@.Data[[length(object)+1]] <- ID(data) |
287 |
} |
} |
288 |
else |
else |
375 |
} |
} |
376 |
counter <- counter + 1 |
counter <- counter + 1 |
377 |
} |
} |
|
dbDisconnect(db) |
|
378 |
} |
} |
379 |
else |
else |
380 |
object@.Data[i, ...] <- value |
object@.Data[i, ...] <- value |
387 |
if (DBControl(x)[["useDb"]]) { |
if (DBControl(x)[["useDb"]]) { |
388 |
db <- dbInit(DBControl(x)[["dbName"]], DBControl(x)[["dbType"]]) |
db <- dbInit(DBControl(x)[["dbName"]], DBControl(x)[["dbType"]]) |
389 |
result <- dbFetch(db, x@.Data[[i]]) |
result <- dbFetch(db, x@.Data[[i]]) |
|
dbDisconnect(db) |
|
390 |
return(loadDoc(result)) |
return(loadDoc(result)) |
391 |
} |
} |
392 |
else |
else |
401 |
db <- dbInit(DBControl(object)[["dbName"]], DBControl(object)[["dbType"]]) |
db <- dbInit(DBControl(object)[["dbName"]], DBControl(object)[["dbType"]]) |
402 |
index <- object@.Data[[i]] |
index <- object@.Data[[i]] |
403 |
db[[index]] <- value |
db[[index]] <- value |
|
dbDisconnect(db) |
|
404 |
} |
} |
405 |
else |
else |
406 |
object@.Data[[i, ...]] <- value |
object@.Data[[i, ...]] <- value |
570 |
if (DBControl(object)[["useDb"]]) { |
if (DBControl(object)[["useDb"]]) { |
571 |
db <- dbInit(DBControl(object)[["dbName"]], DBControl(object)[["dbType"]]) |
db <- dbInit(DBControl(object)[["dbName"]], DBControl(object)[["dbType"]]) |
572 |
show(dbMultiFetch(db, unlist(object))) |
show(dbMultiFetch(db, unlist(object))) |
|
dbDisconnect(db) |
|
573 |
} |
} |
574 |
else |
else |
575 |
show(object@.Data) |
show(object@.Data) |
583 |
if (DBControl(y)[["useDb"]]) { |
if (DBControl(y)[["useDb"]]) { |
584 |
db <- dbInit(DBControl(y)[["dbName"]], DBControl(y)[["dbType"]]) |
db <- dbInit(DBControl(y)[["dbName"]], DBControl(y)[["dbType"]]) |
585 |
result <- any(sapply(y, function(x, z) {x %in% Corpus(z)}, x)) |
result <- any(sapply(y, function(x, z) {x %in% Corpus(z)}, x)) |
|
dbDisconnect(db) |
|
586 |
} |
} |
587 |
else |
else |
588 |
result <- x %in% y |
result <- x %in% y |
595 |
if (DBControl(X)[["useDb"]]) { |
if (DBControl(X)[["useDb"]]) { |
596 |
db <- dbInit(DBControl(X)[["dbName"]], DBControl(X)[["dbType"]]) |
db <- dbInit(DBControl(X)[["dbName"]], DBControl(X)[["dbType"]]) |
597 |
result <- lapply(dbMultiFetch(db, unlist(X)), FUN, ...) |
result <- lapply(dbMultiFetch(db, unlist(X)), FUN, ...) |
|
dbDisconnect(db) |
|
598 |
} |
} |
599 |
else |
else |
600 |
result <- base::lapply(X, FUN, ...) |
result <- base::lapply(X, FUN, ...) |
607 |
if (DBControl(X)[["useDb"]]) { |
if (DBControl(X)[["useDb"]]) { |
608 |
db <- dbInit(DBControl(X)[["dbName"]], DBControl(X)[["dbType"]]) |
db <- dbInit(DBControl(X)[["dbName"]], DBControl(X)[["dbType"]]) |
609 |
result <- sapply(dbMultiFetch(db, unlist(X)), FUN, ...) |
result <- sapply(dbMultiFetch(db, unlist(X)), FUN, ...) |
|
dbDisconnect(db) |
|
610 |
} |
} |
611 |
else |
else |
612 |
result <- base::sapply(X, FUN, ...) |
result <- base::sapply(X, FUN, ...) |