SCM

SCM Repository

[tm] Diff of /trunk/tm/R/textdoccol.R
ViewVC logotype

Diff of /trunk/tm/R/textdoccol.R

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 725, Fri Apr 6 01:10:28 2007 UTC revision 727, Sun Apr 8 19:36:41 2007 UTC
# Line 42  Line 42 
42                df <- data.frame(MetaID = rep(0, length(tdl)), stringsAsFactors = FALSE)                df <- data.frame(MetaID = rep(0, length(tdl)), stringsAsFactors = FALSE)
43                if (dbControl$useDb) {                if (dbControl$useDb) {
44                    dbInsert(db, "DMetaData", df)                    dbInsert(db, "DMetaData", df)
45                    dmeta.df <- data.frame(key = "DMetaData", subset = NA)                    dmeta.df <- data.frame(key = "DMetaData", subset = I(list(NA)))
46                    dbDisconnect(db)                    dbDisconnect(db)
47                }                }
48                else                else
# Line 353  Line 353 
353                object <- x                object <- x
354                object@.Data <- x@.Data[i, ..., drop = FALSE]                object@.Data <- x@.Data[i, ..., drop = FALSE]
355                if (DBControl(object)[["useDb"]]) {                if (DBControl(object)[["useDb"]]) {
356                    index <- object@DMetaData[1 , "subset"]                    index <- object@DMetaData[[1 , "subset"]]
357                    if (is.na(index))                    if (any(is.na(index)))
358                        object@DMetaData[1 , "subset"] <- i                        object@DMetaData[[1 , "subset"]] <- i
359                    else                    else
360                        object@DMetaData[1 , "subset"] <- index[i]                        object@DMetaData[[1 , "subset"]] <- index[i]
361                }                }
362                else {                else {
363                    df <- as.data.frame(DMetaData(x)[i, ])                    df <- as.data.frame(DMetaData(x)[i, ])

Legend:
Removed from v.725  
changed lines
  Added in v.727

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