長いコードファイルを別々のファイルに変換する

Question

多くの関数定義を持つ2つの非常に長いRファイルと、その間に不規則なコメントがあります。各関数定義を別々のRファイルに移動するR関数はありますか？関数名を使って新しいファイルに名前を付けるのは良いことです:)。すべての機能を持つファイルの

Answer 1

コンテンツ（のはtuttifrutti.Rそれを呼びましょう）このようなものが考えられます。

fun1 <- function(x) { 
    # comment 
    x * x 
} 

fun2 <- function(x) { 
    # comment 
    x/2 
} 

そして、あなたはすべての機能を収集し、ファイルをsamenameするためにそれらを印刷することができます。

localenv <- new.env() 

source("tuttifrutti.R", local = localenv) 
sapply(localenv, print) 

sapply(names(localenv), FUN = function(x, en) { 
    dump(x, file = sprintf("%s.R", x), envir = en) 
}, en = localenv)