How to separate each line of function body with semicolon in R - r

Question

In R I have a function "getHbasedPortfolio". The body of the function is as follows:
body("getHbasedPortfolio")
{
className <- name
pf = list(name = name,
get = function(x) pf[[x]],
set = function(x,value) pf[[x]] <- value
)
pf$getCash = function(date) {
data <-data.frame(name=name,value="null")
return(data)
}
pf$setCash = function(cash, date) {
a <- insertCashTable(pf$name, cash, date)
return("success")
}
pf <- list2env(pf)
class(pf) <- name
return(pf)
}
I need to separate each lines with commas. So I wrote a code to do that.
The code I used is as follows:
body <-"";
for(i in 1:length(as.character(body("getHbasedPortfolio")))){
body <- paste(body,as.character(body("getHbasedPortfolio"))[i])
body <- paste(body,";")
}
Now I am getting the following output.
body
[1] " { ; className <- name ; pf = list(name = name, get = function(x) pf[[x]], set = function(x, value) pf[[x]] <- value) ; pf$getCash = function(date) {\n data <- data.frame(name = name, value = \"null\")\n return(data)\n} ; pf$setCash = function(cash, date) {\n a <- insertCashTable(pf$name, cash, date)\n return(\"success\")\n} ; pf <- list2env(pf) ; class(pf) <- name ; return(pf) ;"
The problem is that the statements under the pf$setCash and pf$getCash are not separated by commas.
How can I overcome this problem?

Answer 1

You can use something like this:
dat <- data.frame(capture.output(getHbasedPortfolio))
This will save your function line by a line in a data.frame. You can then save it in your data base.
EDIT
you can use dat to write line by line.
paste(data.frame(capture.output(getHbasedPortfolio))[,1],
collapse=',') ## I would use another separator here becuase comma is confusing