Tüm kaynaklı işlevleri alın

R, source()bazı işlevleri yüklemek için kullanıyorum :

source("functions.R")

Bu dosyada tanımlanan tüm işlevlerin listesini almak mümkün müdür? İşlev adları olarak. (Belki source()de bir şekilde onu iade edebilir?).

Not: Son çare, source()ikinci kez çağırmak local({ source(); })ve daha sonra ls()içeride yapmak ve işlevleri filtrelemek olacaktır, ancak bu çok karmaşık - daha kolay ve daha az beceriksiz bir çözüm var mı?

Bence en iyi yol, dosyayı geçici bir ortama aktarmak olacaktır. Bu işlevi tüm işlevler için sorgulayın, ardından bu değerleri üst ortama kopyalayın.

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")

Biraz hantal ama sourceçağrı öncesi ve sonrası gibi nesnelerdeki değişikliklere bakabilirsiniz .

    # 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"

Bu normal ifadenin hemen hemen her geçerli işlev türünü (ikili işleç, atama işlevleri) ve işlev adındaki her geçerli karakteri yakaladığını düşünüyorum, ancak bir kenar durumu kaçırmış olabilirim.

# 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<-`"

Bu sizin kendi komut dosyanızsa, nasıl biçimlendirildiğini denetleyebilmeniz için basit bir kural yeterli olacaktır. Her işlev adının satırındaki ilk karakterden başladığından ve sözcüğün functionbu satırda da göründüğünden emin olun. Kelimenin diğer herhangi bir kullanımı functionboşluk veya sekme ile başlayan bir satırda görünmelidir. Sonra tek satırlık bir çözüm:

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

Bu yaklaşımın avantajları

• çok basit . Kurallar basitçe ifade edilir ve işlev adlarını çıkarmak için sadece bir basit R kodu satırı vardır. Regex de basittir ve mevcut bir dosya için kontrol edilmesi çok kolaydır - sadece kelimeyi grep functionve görüntülenen her oluşumun kurala uyup uymadığını kontrol edin.

• kaynağı çalıştırmaya gerek yok. Tamamen statiktir .

• çoğu durumda kaynak dosyayı değiştirmenize gerek kalmayacak ve diğerlerinde asgari değişiklikler olacaktır. Senaryoyu bu düşünceyle sıfırdan yazıyorsanız, düzenlemek daha da kolaydır.

Sözleşmeler fikri boyunca birçok alternatif var. daha karmaşık bir ifadeye sahip olabilirsiniz veya # FUNCTIONkomut dosyasını sıfırdan yazıyorsanız ve daha sonra bu ifadeyi yazıp ilk kelimeyi satırda ayıklarsanız, herhangi bir işlev tanımının ilk satırının sonuna ekleyebilirsiniz , ancak burada ana öneri görünüyor basitliği ve listelenen diğer avantajları nedeniyle özellikle çekici.

Ölçek

# 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"

Bu, bir dizi belirteç (sembol, atama operatörü, sonra işlev) aramak için yayında kullanılan kodu yorumumdan uyarlar ve tanımlanmış herhangi bir işlevi almalıdır. MrFlick'in cevabı olarak sağlam olup olmadığından emin değilim, ancak başka bir seçenek:

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"]]
}