SCM

SCM Repository

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

Diff of /trunk/R/textmin/R/textdoccol.R

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

revision 51, Mon Aug 7 12:14:09 2006 UTC revision 52, Sat Aug 12 12:43:39 2006 UTC
# Line 281  Line 281 
281                else                else
282                    return(FALSE)                    return(FALSE)
283            })            })
284    
285    setGeneric("attachData", function(object, data) standardGeneric("attachData"))
286    setMethod("attachData",
287              c("TextDocCol","TextDocument"),
288              function(object, data) {
289                  data <- as(list(data), "TextDocCol")
290                  object@.Data <- as(c(object@.Data, data), "TextDocCol")
291                  return(object)
292              })
293    
294    setGeneric("attachMetaData", function(object, name, metadata) standardGeneric("attachMetaData"))
295    setMethod("attachMetaData",
296              c("TextDocCol"),
297              function(object, name, metadata) {
298                  object@GlobalMetaData <- c(object@GlobalMetaData, new = list(metadata))
299                  names(object@GlobalMetaData)[length(names(object@GlobalMetaData))] <- name
300                  return(object)
301              })

Legend:
Removed from v.51  
changed lines
  Added in v.52

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