SCM

SCM Repository

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

Diff of /pkg/R/textdoccol.R

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

revision 728, Sun Apr 8 23:23:29 2007 UTC revision 729, Tue Apr 10 17:08:52 2007 UTC
# Line 145  Line 145 
145                        db[[id]] <- FUN(object[[i]], ..., DMetaData = DMetaData(object))                        db[[id]] <- FUN(object[[i]], ..., DMetaData = DMetaData(object))
146                        i <- i + 1                        i <- i + 1
147                    }                    }
                   #new <- lapply(object, FUN, ..., DMetaData = DMetaData(object))  
                   #ids <- lapply(object, ID)  
                   # Avoidance of explicit loop is probably more efficient  
                   #for (i in length(new)) {  
                   #    db[[ids[i]]] <- new[[i]]  
                   #}  
148                    dbDisconnect(db)                    dbDisconnect(db)
149                }                }
150                else                else
# Line 256  Line 250 
250      close(con)      close(con)
251      localMetaNames <- unique(names(sapply(object, LocalMetaData)))      localMetaNames <- unique(names(sapply(object, LocalMetaData)))
252      localMetaTokens <- localMetaNames[localMetaNames %in% tokens]      localMetaTokens <- localMetaNames[localMetaNames %in% tokens]
253      query.df <- DMetaData(prescindMeta(object,      n <- names(DMetaData(object))
254                                         c("Author", "DateTimeStamp", "Description", "ID",      tags <- c("Author", "DateTimeStamp", "Description", "ID", "Origin", "Heading", "Language", localMetaTokens)
255                                           "Origin", "Heading", "Language", localMetaTokens)))      query.df <- DMetaData(prescindMeta(object, tags))
256        if (DBControl(object)[["useDb"]])
257            DMetaData(object) <- DMetaData(object)[, setdiff(n, tags), drop = FALSE]
258      # Rename to avoid name conflicts      # Rename to avoid name conflicts
259      names(query.df)[names(query.df) == "Author"] <- "author"      names(query.df)[names(query.df) == "Author"] <- "author"
260      names(query.df)[names(query.df) == "DateTimeStamp"] <- "datetimestamp"      names(query.df)[names(query.df) == "DateTimeStamp"] <- "datetimestamp"
# Line 313  Line 309 
309  setMethod("removeMeta",  setMethod("removeMeta",
310            signature(object = "TextDocCol"),            signature(object = "TextDocCol"),
311            function(object, cname = NULL, dname = NULL) {            function(object, cname = NULL, dname = NULL) {
312                if (!is.null(cname)) {                if (!is.null(cname))
313                    object@CMetaData@MetaData <- CMetaData(object)@MetaData[names(CMetaData(object)@MetaData) != cname]                    object@CMetaData@MetaData <- CMetaData(object)@MetaData[names(CMetaData(object)@MetaData) != cname]
314                }                if (!is.null(dname))
315                if (!is.null(dname)) {                    DMetaData(object) <- DMetaData(object)[, names(DMetaData(object)) != dname, drop = FALSE]
                   DMetaData(object) <- DMetaData(object)[names(DMetaData(object)) != dname]  
               }  
316                return(object)                return(object)
317            })            })
318    
# Line 364  Line 358 
358                    else                    else
359                        object@DMetaData[[1 , "subset"]] <- index[i]                        object@DMetaData[[1 , "subset"]] <- index[i]
360                }                }
361                else {                else
362                    df <- as.data.frame(DMetaData(x)[i, ])                    DMetaData(object) <- DMetaData(x)[i, , drop = FALSE]
                   names(df) <- names(DMetaData(x))  
                   DMetaData(object) <- df  
               }  
363                return(object)                return(object)
364            })            })
365    
# Line 596  Line 587 
587  setMethod("%IN%",  setMethod("%IN%",
588            signature(x = "TextDocument", y = "TextDocCol"),            signature(x = "TextDocument", y = "TextDocCol"),
589            function(x, y) {            function(x, y) {
590                x %in% y                if (DBControl(y)[["useDb"]]) {
591                      db <- dbInit(DBControl(y)[["dbName"]], DBControl(y)[["dbType"]])
592                      result <- any(sapply(y, function(x, z) {x %in% Corpus(z)}, x))
593                      dbDisconnect(db)
594                  }
595                  else
596                      result <- x %in% y
597                  return(result)
598            })            })
599    
600  setMethod("lapply",  setMethod("lapply",

Legend:
Removed from v.728  
changed lines
  Added in v.729

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