R에있는

Question

의 semi coloumn으로 함수 본문의 각 행을 분리하는 방법은 "getHbasedPortfolio"함수를 가지고 있습니다. 다음 함수 본문은 다음

본체 ("getHbasedPortfolio") I 쉼표 각 라인을 분리해야

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

. 그래서 나는 그것을하기위한 코드를 작성했습니다. 다음과 같이 내가 사용하는 코드는 다음과 같습니다

body <-""; 
for(i in 1:length(as.character(body("getHbasedPortfolio")))){ 
     body <- paste(body,as.character(body("getHbasedPortfolio"))[i]) 
     body <- paste(body,";") 
    } 

를 지금은 다음과 같은 출력을 얻고있다.

본체 [1] "{; 클래스 이름 < - 이름, PF = 목록 (NAME = 이름 얻을 = 함수 (X) PF [X]로 설정 = 함수 (X, 값)의 PF [ \ n return (data) \ n}; pf (x)]); pf $ getCash = function (date) {\ n 데이터 < - pf < - list2env (pf); 클래스 (pf); (pf) $ setCash = function (현금, 날짜) \ \ < - insertCashTable (pf $ 이름, 현금, 날짜) \ n 반환 \ < - 이름; return (pf); "

문제는 pf $ setCash 및 pf $ getCash의 명령문이 쉼표로 구분되지 않는다는 것입니다. 이 문제를 어떻게 극복 할 수 있습니까?

Answer 1

이 같은 것을 사용할 수 있습니다

dat <- data.frame(capture.output(getHbasedPortfolio)) 

이것은 data.frame의 선으로 함수 라인을 절약 할 수 있습니다. 그런 다음 데이터베이스에 저장할 수 있습니다.

당신이 라인으로 라인을 작성하는 날엔를 사용할 수 있습니다

편집 할 수 있습니다.

paste(data.frame(capture.output(getHbasedPortfolio))[,1], 
     collapse=',') ## I would use another separator here becuase comma is confusing