suppress output for meta in package tm

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]]

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)) {

n_corp_file <- capture.output(meta(corpa[[n]], "URI"),file="log.txt")

#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

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]]

--
Peter Ehlers
University of Calgary
403.202.3921