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 75, Wed Nov 22 14:37:18 2006 UTC revision 76, Thu Nov 23 16:29:02 2006 UTC
# Line 570  Line 570 
570            signature(object = "TextDocCol", data = "TextDocument"),            signature(object = "TextDocCol", data = "TextDocument"),
571            function(object, data, meta = NULL) {            function(object, data, meta = NULL) {
572                object@.Data <- c(object@.Data, list(data))                object@.Data <- c(object@.Data, list(data))
               if (length(meta) > 0)  
573                    object@DMetaData <- rbind(object@DMetaData, c(MetaID = DCMetaData(object)@NodeID, meta))                    object@DMetaData <- rbind(object@DMetaData, c(MetaID = DCMetaData(object)@NodeID, meta))
574                return(object)                return(object)
575            })            })
# Line 636  Line 635 
635    
636                object <- x                object <- x
637                object@.Data <- x@.Data[i, ..., drop = FALSE]                object@.Data <- x@.Data[i, ..., drop = FALSE]
638                object@DMetaData <- DMetaData(object)[i, ]                df <- as.data.frame(DMetaData(object)[i, ])
639                  names(df) <- names(DMetaData(object))
640                  object@DMetaData <- df
641                return(object)                return(object)
642            })            })
643    

Legend:
Removed from v.75  
changed lines
  Added in v.76

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