[R] problem in textConnection function

[Michael S]

Dear all-helpers:

I create one package ,code like this:
"output" <-
function(x,y)
{
	zz <-textConnection("foo","w")
	sink(zz)
	a <-5
	b <-6
	z <-a*b
	z
	e <-"spss"
	h <-c(1,2,3)
	ls()
	r<-c("s","p","s","s")
	p<-list(1:10)
	p
	sink()
                close(zz)
	x <- foo
                y <- foo
    # .C("output",as.character(x),as.character(y))
}

packege making is ok , but when I use "output" in Rgui,  none of object x 
ory can get the result what I expect(textConnection result),when I copy the 
code and paste on Rgui ,it is ok.what should I do ?

thanks in advance