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 68, Thu Nov 2 14:06:42 2006 UTC revision 69, Fri Nov 3 10:50:39 2006 UTC
# Line 504  Line 504 
504                return(object)                return(object)
505            })            })
506    
507    setGeneric("remove_metadata", function(object, name) standardGeneric("remove_metadata"))
508    setMethod("remove_metadata",
509              signature(object = "TextDocCol"),
510              function(object, name) {
511                  object@GlobalMetaData <- GlobalMetaData(object)[names(GlobalMetaData(object)) != name]
512                  return(object)
513              })
514    
515    setGeneric("modify_metadata", function(object, name, metadata) standardGeneric("modify_metadata"))
516    setMethod("modify_metadata",
517              signature(object = "TextDocCol"),
518              function(object, name, metadata) {
519                  object@GlobalMetaData[[name]] <- metadata
520                  return(object)
521              })
522    
523  setGeneric("set_subscriptable", function(object, name) standardGeneric("set_subscriptable"))  setGeneric("set_subscriptable", function(object, name) standardGeneric("set_subscriptable"))
524  setMethod("set_subscriptable",  setMethod("set_subscriptable",
525            signature(object = "TextDocCol"),            signature(object = "TextDocCol"),

Legend:
Removed from v.68  
changed lines
  Added in v.69

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