R 스크립트에서 함수를 추출하는 더 좋은 방법은 무엇입니까?

Question

내가 거기에 몇 가지 기능을 가진 파일 "myfuncs.R"이 말 :

내가 적절하게 이름을 자신의 파일로 "myfuncs.R"에 포함 된 모든 기능을 배치 할

A <- function(x) x 
B <- function(y) y 
C <- function(z) z 

. 이 스크립트는 명백한 한계가있다,

func_A.R 
func_B.R 
func_C.R 

을하지만 :

split -p "function\(" myfuncs.R tmpfunc 
grep "function(" tmpfunc* | awk '{ 
    # strip first-instances of function assignment 
    sub("<-", " ") 
    sub("=", " ") 
    sub(":", " ") # and colon introduced by grep 
    mv=$1 
    mvto=sprintf("func_%s.R",$2) 
    print "mv", mv, mvto 
}' | sh 

나를 떠나 : 나는 기능을 추출하여 별도의 파일에 배치하는 간단한 배쉬 쉘 스크립트가 있습니다. 모든 기능이 한 줄에있는 경우 실패 크게

A <- function(x){ 
    Aa <- function(x){x} 
    return(Aa) 
} 

과 : 기능 'A'는 중첩 된 함수가있는 경우 예를 들어, 무례한 행동을 할 것이다.

누가 더 강력하고 오류가 발생하기 쉬운 방법을 알고 있습니까?

Answer 1

소스 당신의 기능을 다음 package.skeleton()

별도의 파일을 입력은 각 기능에 대하여 설명한다.