Hi Josh,
You're absolutely right. I suppose one could set up some sort of S3
thing for Henri's problem:
c <- function(..., recursive = FALSE) UseMethod("c")
c.default <- base::c
c.corpus <- function(..., recursive = FALSE) {ans = c.default(...);
attributes(ans) <- c(do.call(attributes, ...))}
But agreed, it seems deeply risky.
Cheers,
Michael
On Thu, Nov 17, 2011 at 9:01 PM, Joshua Wiley <jwiley.ps...@gmail.com> wrote:
> Hi Michael,
>
> require(sos)
> findFn("{meta}", sortby = "Function")
> ## see that only two functions have the exact name, 'meta'
> ## one is titled, "Meta Data Management" in the package 'tm'
> ## seems a pretty likely choice
>
> Also, the fact that it is a truly terrible idea does not mean it is not easy:
>
> mvir <- new.env()
> mvir$c <- function(x, ...) {cat("sure you can!\n"); mean(x, ...)}
> attach(mvir)
>
> c(x = 1:10)
> detach(mvir)
>
> rm(mvir)
>
> Cheers,
>
> Josh
>
>
> On Thu, Nov 17, 2011 at 5:25 PM, R. Michael Weylandt
> <michael.weyla...@gmail.com> <michael.weyla...@gmail.com> wrote:
>> What package is all this from()?
>>
>> You might check if there is a special rbind/cbind method provided. I don't
>> think you can easily change the behavior of c()
>>
>> Michael
>>
>> On Nov 17, 2011, at 4:43 PM, Henri-Paul Indiogine <hindiog...@gmail.com>
>> wrote:
>>
>>> Greetings!
>>>
>>> I loose all my metadata after concatenating corpora. This is an
>>> example of what happens:
>>>
>>>> meta(corpus.1)
>>> MetaID cid fid selfirst selend fname
>>> 1 0 1 11 2169 2518 WCPD-2001-01-29-Pg217.scrb
>>> 2 0 1 14 9189 9702 WCPD-2003-01-13-Pg39.scrb
>>> 3 0 1 14 2109 2577 WCPD-2003-01-13-Pg39.scrb
>>>
>>> ....
>>> ....
>>>
>>> 17 0 1 114 17863 18256 WCPD-2007-04-30-Pg515.scrb
>>>
>>>
>>>> meta(corpus.2)
>>> MetaID cid fid selfirst selend fname
>>> 1 0 2 2 11016 11600 DCPD-200900595.scrb
>>> 2 0 2 6 19510 20098 DCPD-201000636.scrb
>>> 3 0 2 6 23935 24573 DCPD-201000636.scrb
>>>
>>> ....
>>> ....
>>>
>>> 94 0 2 127 16225 17128 WCPD-2009-01-12-Pg22-3.scrb
>>>
>>>
>>>> tot.corpus <- c(corpus.1, corpus.2)
>>>> meta(tot.corpus)
>>>
>>> MetaID
>>> 1 0
>>> 2 0
>>> 3 0
>>>
>>> ....
>>> ....
>>>
>>> 111 0
>>>>
>>>
>>> This is from the structure of corpus.1
>>>
>>> ..$ MetaData:List of 2
>>> .. ..$ create_date: POSIXlt[1:1], format: "2011-11-17 21:09:57"
>>> .. ..$ creator : chr "henk"
>>> ..$ Children: NULL
>>> ..- attr(*, "class")= chr "MetaDataNode"
>>> - attr(*, "DMetaData")='data.frame': 17 obs. of 6 variables:
>>> ..$ MetaID : num [1:17] 0 0 0 0 0 0 0 0 0 0 ...
>>> ..$ cid : int [1:17] 1 1 1 1 1 1 1 1 1 1 ...
>>> ..$ fid : int [1:17] 11 14 14 17 46 80 80 80 91 91 ...
>>> ..$ selfirst: num [1:17] 2169 9189 2109 8315 9439 ...
>>> ..$ selend : num [1:17] 2518 9702 2577 8881 10102 ...
>>> ..$ fname : chr [1:17] "WCPD-2001-01-29-Pg217.scrb"
>>> "WCPD-2003-01-13-Pg39.scrb" "WCPD-2003-01-13-Pg39.scrb"
>>> "WCPD-2004-05-17-Pg856.scrb" ...
>>> - attr(*, "class")= chr [1:3] "VCorpus" "Corpus" "list"
>>>
>>>
>>> Any idea on what I could do to keep the metadata in the merged corpus?
>>>
>>> Thanks,
>>> Henri-Paul
>>>
>>>
>>> --
>>> Henri-Paul Indiogine
>>>
>>> Curriculum & Instruction
>>> Texas A&M University
>>> TutorFind Learning Centre
>>>
>>> Email: hindiog...@gmail.com
>>> Skype: hindiogine
>>> Website: http://people.cehd.tamu.edu/~sindiogine
>>>
>>> ______________________________________________
>>> R-help@r-project.org mailing list
>>> https://stat.ethz.ch/mailman/listinfo/r-help
>>> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
>>> and provide commented, minimal, self-contained, reproducible code.
>>
>> ______________________________________________
>> R-help@r-project.org mailing list
>> https://stat.ethz.ch/mailman/listinfo/r-help
>> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
>> and provide commented, minimal, self-contained, reproducible code.
>>
>
>
>
> --
> Joshua Wiley
> Ph.D. Student, Health Psychology
> Programmer Analyst II, ATS Statistical Consulting Group
> University of California, Los Angeles
> https://joshuawiley.com/
>
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
