SCM

SCM Repository

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

Diff of /pkg/R/corpus.R

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

revision 886, Thu Jan 29 22:47:34 2009 UTC revision 905, Sat Mar 21 10:13:08 2009 UTC
# Line 67  Line 67 
67    
68                cmeta.node <- new("MetaDataNode",                cmeta.node <- new("MetaDataNode",
69                              NodeID = 0,                              NodeID = 0,
70                              MetaData = list(create_date = Sys.time(), creator = Sys.getenv("LOGNAME")),                              MetaData = list(create_date = as.POSIXlt(Sys.time(), tz = "GMT"), creator = Sys.getenv("LOGNAME")),
71                              children = list())                              children = list())
72    
73                return(new("Corpus", .Data = tdl, DMetaData = dmeta.df, CMetaData = cmeta.node, DBControl = dbControl))                return(new("Corpus", .Data = tdl, DMetaData = dmeta.df, CMetaData = cmeta.node, DBControl = dbControl))
# Line 493  Line 493 
493    
494  setMethod("c",  setMethod("c",
495            signature(x = "Corpus"),            signature(x = "Corpus"),
496            function(x, ..., meta = list(merge_date = Sys.time(), merger = Sys.getenv("LOGNAME")), recursive = TRUE) {            function(x, ..., meta = list(merge_date = as.POSIXlt(Sys.time(), tz = "GMT"), merger = Sys.getenv("LOGNAME")), recursive = TRUE) {
497                args <- list(...)                args <- list(...)
498                if (length(args) == 0)                if (length(args) == 0)
499                    return(x)                    return(x)
500    
501                if (!all(sapply(args, inherits, "Corpus")))                if (!all(sapply(args, inherits, "Corpus")))
502                    stop("not all arguments are text document collections")                    stop("not all arguments are corpora")
503                if (DBControl(x)[["useDb"]] || any(unlist(sapply(args, DBControl)["useDb", ])))                if (DBControl(x)[["useDb"]] || any(unlist(sapply(args, DBControl)["useDb", ])))
504                    stop("concatenating text document collections with activated database is not supported")                    stop("concatenating corpora with activated database is not supported")
505    
506                result <- x                Reduce(c2, base::c(list(x), args))
               for (c in args) {  
                   result <- c2(result, c)  
               }  
               return(result)  
507            })            })
508    
509  setGeneric("c2", function(x, y, ..., meta = list(merge_date = Sys.time(), merger = Sys.getenv("LOGNAME")), recursive = TRUE) standardGeneric("c2"))  setGeneric("c2", function(x, y, ..., meta = list(merge_date = as.POSIXlt(Sys.time(), tz = "GMT"), merger = Sys.getenv("LOGNAME")), recursive = TRUE) standardGeneric("c2"))
510  setMethod("c2",  setMethod("c2",
511            signature(x = "Corpus", y = "Corpus"),            signature(x = "Corpus", y = "Corpus"),
512            function(x, y, ..., meta = list(merge_date = Sys.time(), merger = Sys.getenv("LOGNAME")), recursive = TRUE) {            function(x, y, ..., meta = list(merge_date = as.POSIXlt(Sys.time(), tz = "GMT"), merger = Sys.getenv("LOGNAME")), recursive = TRUE) {
513                object <- x                object <- x
514                # Concatenate data slots                # Concatenate data slots
515                object@.Data <- c(as(x, "list"), as(y, "list"))                object@.Data <- c(as(x, "list"), as(y, "list"))
# Line 576  Line 572 
572                dmeta.df <- data.frame(MetaID = rep(0, length(list(x, ...))), stringsAsFactors = FALSE)                dmeta.df <- data.frame(MetaID = rep(0, length(list(x, ...))), stringsAsFactors = FALSE)
573                cmeta.node <- new("MetaDataNode",                cmeta.node <- new("MetaDataNode",
574                              NodeID = 0,                              NodeID = 0,
575                              MetaData = list(create_date = Sys.time(), creator = Sys.getenv("LOGNAME")),                              MetaData = list(create_date = as.POSIXlt(Sys.time(), tz = "GMT"), creator = Sys.getenv("LOGNAME")),
576                              children = list())                              children = list())
577    
578                return(new("Corpus",                return(new("Corpus",
# Line 596  Line 592 
592            signature(object = "Corpus"),            signature(object = "Corpus"),
593            function(object){            function(object){
594                cat(sprintf(ngettext(length(object),                cat(sprintf(ngettext(length(object),
595                                     "A text document collection with %d text document\n",                                     "A corpus with %d text document\n",
596                                     "A text document collection with %d text documents\n"),                                     "A corpus with %d text documents\n"),
597                            length(object)))                            length(object)))
598      })      })
599    
# Line 680  Line 676 
676  setAs("list", "Corpus", function(from) {  setAs("list", "Corpus", function(from) {
677      cmeta.node <- new("MetaDataNode",      cmeta.node <- new("MetaDataNode",
678                        NodeID = 0,                        NodeID = 0,
679                        MetaData = list(create_date = Sys.time(), creator = Sys.getenv("LOGNAME")),                        MetaData = list(create_date = as.POSIXlt(Sys.time(), tz = "GMT"), creator = Sys.getenv("LOGNAME")),
680                        children = list())                        children = list())
681      data <- list()      data <- list()
682      counter <- 1      counter <- 1
683      for (f in from) {      for (f in from) {
684          doc <- new("PlainTextDocument",          doc <- new("PlainTextDocument",
685                     .Data = f, URI = NULL, Cached = TRUE,                     .Data = f, URI = NULL, Cached = TRUE,
686                     Author = "", DateTimeStamp = Sys.time(),                     Author = "", DateTimeStamp = as.POSIXlt(Sys.time(), tz = "GMT"),
687                     Description = "", ID = as.character(counter),                     Description = "", ID = as.character(counter),
688                     Origin = "", Heading = "", Language = "en_US")                     Origin = "", Heading = "", Language = "en_US")
689          data <- c(data, list(doc))          data <- c(data, list(doc))

Legend:
Removed from v.886  
changed lines
  Added in v.905

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