How to Read source code of function as string vector or matrix

Hi,

I need to read source code of function as a string vector or matrix.

if i am using get  method it return as closure type.

example

readcsv<-function(filepath)
{
output<-read.csv(filepath)
}

how to get as string vector like this
test[1]=readcsv<-function(filepath)
test[2]={
test[3]=output<-read.csv(filepath)
test[4]=}

Thanks
B.Purushothaman