すべてのソース関数を取得する

Rでは、source()いくつかの関数をロードするために使用しています。

source("functions.R")

このファイルで定義されているすべての関数のリストを取得することは可能ですか？関数名として。（多分source()それ自体が何らかの形でそれを返すことができますか？）。

PSは：最後に呼び出すことであろうsource()ような二時間をlocal({ source(); })、次にんls()内側とフィルタ機能が、それはあまりにも複雑だ-簡単かつ少ない不器用な解決策はありますか？

一時的な環境にファイルを読み込むのが最善の方法だと思います。すべての関数についてその環境をクエリし、それらの値を親環境にコピーします。

my_source <- function(..., local=NULL) {
  tmp <- new.env(parent=parent.frame())
  source(..., local = tmp)
  funs <- names(tmp)[unlist(eapply(tmp, is.function))]
  for(x in names(tmp)) {
    assign(x, tmp[[x]], envir = parent.frame())
  }
  list(functions=funs)
}

my_source("script.R")

少し不格好ですが、sourceこのような呼び出しの前後のオブジェクトの変化を見ることができます。

    # optionally delete all variables
    #rm(list=ls())

    before <- ls()
    cat("f1 <- function(){}\nf2 <- function(){}\n", file = 'define_function.R')
    # defines these
    #f1 <- function() {}
    #f2 <- function() {}
    source('define_function.R')
    after <- ls()

    changed <- setdiff(after, before)
    changed_objects <- mget(changed, inherits = T)
    changed_function <- do.call(rbind, lapply(changed_objects, is.function))
    new_functions <- changed[changed_function]

    new_functions
    # [1] "f1" "f2"

この正規表現は、ほぼすべての有効なタイプの関数（2項演算子、代入関数）と関数名のすべての有効な文字をキャッチすると思いますが、大文字と小文字を区別していない可能性があります。

# lines <- readLines("functions.R")

lines <- c(
  "`%in%` <- function",
  "foo <- function",
  "foo2bar <- function",
  "`%in%`<-function",
  "foo<-function",
  ".foo <-function",
  "foo2bar<-function",
  "`foo2bar<-`<-function",
  "`foo3bar<-`=function",
  "`foo4bar<-` = function",
  "` d d` <- function", 
  "lapply(x, function)"
)
grep("^`?%?[.a-zA-Z][._a-zA-Z0-9 ]+%?(<-`)?`?\\s*(<-|=)\\s*function", lines)
#>  [1]  1  2  3  4  5  6  7  8  9 10
funs <- grep("^`?%?[.a-zA-Z][._a-zA-Z0-9 ]+%?(<-`)?`?\\s*(<-|=)\\s*function", lines, value = TRUE)
gsub("^(`?%?[.a-zA-Z][._a-zA-Z0-9 ]+%?(<-`)?`?).*", "\\1", funs)
#>  [1] "`%in%`"      "foo "        "foo2bar "    "`%in%`"      "foo"        
#>  [6] ".foo "       "foo2bar"     "`foo2bar<-`" "`foo3bar<-`" "`foo4bar<-`"

これが独自のスクリプトであり、そのフォーマット方法を制御できるようにする場合は、単純な規則で十分です。各関数名がその行の最初の文字から始まり、単語がその行にfunctionも表示されることを確認してください。その他の単語の使用は、functionスペースまたはタブで始まる行に表示されます。次に、1行のソリューションは次のとおりです。

sub(" .*", "", grep("^\\S.*function", readLines("myscript.R"), value = TRUE))

このアプローチの利点は、

• とても簡単です。ルールは簡単に説明されており、関数名を抽出するために必要なRコードは1行だけです。Regexも単純で、既存のファイルの場合は非常に簡単にチェックできます。単語functionをgrepし、表示された各オカレンスがルールに従っているかどうかをチェックするだけです。

• ソースを実行する必要はありません。それは完全に静的です。

• 多くの場合、ソースファイルをまったく変更する必要はなく、他の場合は最小限の変更があります。これを念頭に置いてスクリプトを最初から作成する場合は、配置がさらに簡単になります。

慣習のアイデアに沿って他の多くの選択肢があります。あなたはより洗練された正規表現を持つことができるか、またはあなたは追加することができます# FUNCTION、スクリプトを最初から作成してそのフレーズをgrepして行の最初の単語を抽出する場合は、関数定義の最初の行の最後にますが、ここでの主な提案はリストされているそのシンプルさと他の利点により、特に魅力的です。

テスト

# generate test file
cat("f <- function(x) x\nf(23)\n", file = "myscript.R") 

sub(" .*", "", grep("^\\S.*function", readLines("myscript.R"), value = TRUE))
## [1] "f"

これは、私のコメントからの投稿で使用されているコードを適合させて、トークンのシーケンス（シンボル、代入演算子、関数）を検索し、定義された関数を取得します。MrFlickの答えとして堅牢かどうかはわかりませんが、別のオプションです：

source2 <- function(file, ...) {
  source(file, ...)
  t_t <- subset(getParseData(parse(file)), terminal == TRUE)
  subset(t_t, token == "SYMBOL" & 
           grepl("ASSIGN", c(tail(token, -1), NA), fixed = TRUE) & 
           c(tail(token, -2), NA, NA) == "FUNCTION")[["text"]]
}