[R] suppress output for meta in package tm

[Peter Ehlers]

I don't know anything about pkg:tm, but I'll make a
couple of comments below.

Amber Jaycocks wrote:
> Hi, Peter.
> 
> Thanks.  This works but is not ideal to have an external file.  The main
> reason I want to suppress the output is to speed up the processing time,
> which capture.output does indeed do.  It is a great work around for now.
> 
> I am using the output to match items in a corpa to a file that contains
> metadata and then attaching the fields in the meta data file as metadata to
> each item in the corpa.  If you have any other suggestions to increase
> processing speed please let me know.  Many Thanks.
> 
> for (n in 1:length(corpa)) {
or: for(n in seq_along(corpa)){

> n_corp_file <- capture.output(meta(corpa[[n]], "URI"),file="log.txt")
here, I think, you want:
capture.output(n_corp_file <- meta(corpa[[n]], "URI"), file="log.txt")

and I would use (on Windows): file="clipboard"

> #want just file not dir and file
> n_char <- nchar(n_corp_file[2])
> #nchar[1] is "file"=4 and nchar[2] is dir + filename amd nchar[3] is "UTF-8"
> = 5
> n_char_dir <- nchar(corpa_dir)
> corp_file <- substr(n_corp_file, n_char_dir + 2, n_char)
> corp_file <- corp_file[2]
> #match corpa file with meta data file
> match_index <- match(corp_file,(meta_data$file))
> if (!is.na(match_index)) {
> #attach all rows of meta_data
> meta_cols <- colnames(meta_data)
> for (col in 1:length(meta_cols)) {
> meta(corpa[[n]], meta_cols[col]) <- meta_data[match_index,meta_cols[col]] }
> } #if
> } #for n corpa
> 

You might also find sink() to be more to your taste than
capture.output().

  -Peter

> On Sat, Jan 2, 2010 at 6:03 AM, Peter Ehlers <ehlers at ucalgary.ca> wrote:
> 
>> Can you wrap your call in capture.output(..., file=...)?
>>
>>  -Peter Ehlers
>>
>> Amber Jaycocks wrote:
>>
>>>  Hello,
>>>
>>> I am using the tm package and wish to suppress the output for meta.  I am
>>> defining another variable for one of the tags and don't want the value
>>> printed on the screen.  Any help would be appreciated.  Thanks.
>>>
>>> here is the commnad:
>>>
>>> n_corp_file <- meta(corpa[[n]], "URI")
>>>
>>> -Amber
>>>
>>>        [[alternative HTML version deleted]]
>>>
>>> ______________________________________________
>>> R-help at 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<http://www.r-project.org/posting-guide.html>
>>> and provide commented, minimal, self-contained, reproducible code.
>>>
>>>
>>>
>> --
>> Peter Ehlers
>> University of Calgary
>> 403.202.3921
>>
> 

-- 
Peter Ehlers
University of Calgary
403.202.3921