Diğer betiklere (kaynak) R betiği nasıl eklenir

Projemdeki diğer betiklerden kullanmak istediğim bir yardımcı program R betiği (util.R) oluşturdum. Bu komut dosyasının tanımladığı işlevin diğer komut dosyalarımda da kullanılabilir olmasını sağlamanın doğru yolu nedir?

requireBir paketi yalnızca henüz yüklenmemişse yükleyen işleve benzer bir şey arıyorum . Aramak istemiyorum source("util.R")çünkü bu her çağrıldığında komut dosyasını yükleyecektir.

R Kaynak Kodunu Düzenlemede olduğu gibi bir paket oluşturmamı söyleyen bazı cevaplar alacağımı biliyorum :) Ama başka yerde kullanılacak bir şey yaratmıyorum, bu sadece bağımsız bir proje.

İşte olası bir yol. Kodunuzda existsbenzersiz bir şey olup olmadığını kontrol etmek için işlevi kullanın util.R.

Örneğin:

if(!exists("foo", mode="function")) source("util.R")

( mode="function"Gavin Simpson'ın işaret ettiği gibi dahil edilecek şekilde düzenlendi )

Yerleşik böyle bir şey yoktur, çünkü R çağrıları takip etmez sourceve neyin nereden yüklendiğini anlayamaz (paketleri kullanırken durum böyle değildir). Yine de, C .hdosyalarında olduğu gibi aynı fikri kullanabilirsiniz , yani tamamını içine alın:

if(!exists('util_R')){
 util_R<-T

 #Code

}

Say util.Rbir işlev üretir foo(). Bu işlevin global ortamda mevcut olup olmadığını kontrol edebilir ve değilse komut dosyasını kaynaklayabilirsiniz:

if(identical(length(ls(pattern = "^foo$")), 0))
    source("util.R")

Bu adı taşıyan her şeyi bulacaktır foo. Bir işlev bulmak istiyorsanız, (@Andrie tarafından belirtildiği gibi) exists()yararlıdır, ancak tam olarak ne tür bir nesneyi arayacağınızın söylenmesi gerekir, ör.

if(exists("foo", mode = "function"))
    source("util.R")

İşte exists()eylemde:

> exists("foo", mode = "function")
[1] FALSE
> foo <- function(x) x
> exists("foo", mode = "function")
[1] TRUE
> rm(foo)
> foo <- 1:10
> exists("foo", mode = "function")
[1] FALSE

Bir dosya adı ve bir ortam adı alan, dosyanın ortama yüklenip yüklenmediğini kontrol eden ve yoksa dosyayı sys.sourcekaynak olarak kullanan bir işlev yazabilirsiniz .

İşte hızlı ve denenmemiş bir işlev (iyileştirmeler hoş geldiniz!):

include <- function(file, env) {
  # ensure file and env are provided
  if(missing(file) || missing(env))
    stop("'file' and 'env' must be provided")
  # ensure env is character
  if(!is.character(file) || !is.character(env))
    stop("'file' and 'env' must be a character")

  # see if env is attached to the search path
  if(env %in% search()) {
    ENV <- get(env)
    files <- get(".files",ENV)
    # if the file hasn't been loaded
    if(!(file %in% files)) {
      sys.source(file, ENV)                        # load the file
      assign(".files", c(file, files), envir=ENV)  # set the flag
    }
  } else {
    ENV <- attach(NULL, name=env)      # create/attach new environment
    sys.source(file, ENV)              # load the file
    assign(".files", file, envir=ENV)  # set the flag
  }
}

İşte yazdığım bir fonksiyon. base::sourceKaynaklı dosyaların bir listesini adlı global ortam listesinde depolamak için işlevi sarar sourced. Yalnızca kaynak .force=TRUEçağrısına bir argüman sağlarsanız bir dosyayı yeniden kaynaklayacaktır. Bağımsız değişken imzası aksi takdirde gerçekle aynıdır, bu source()nedenle bunu kullanmak için komut dosyalarınızı yeniden yazmanıza gerek yoktur.

warning("overriding source with my own function FYI")
source <- function(path, .force=FALSE, ...) {
  library(tools)
  path <- tryCatch(normalizePath(path), error=function(e) path)
  m<-md5sum(path)

  go<-TRUE
  if (!is.vector(.GlobalEnv$sourced)) {
    .GlobalEnv$sourced <- list()
  }
  if(! is.null(.GlobalEnv$sourced[[path]])) {
    if(m == .GlobalEnv$sourced[[path]]) {
      message(sprintf("Not re-sourcing %s. Override with:\n  source('%s', .force=TRUE)", path, path))
      go<-FALSE
    }
    else {
      message(sprintf('re-sourcing %s as it has changed from: %s to: %s', path, .GlobalEnv$sourced[[path]], m))
      go<-TRUE
    }
  } 
  if(.force) {
    go<-TRUE
    message("  ...forcing.")
  }
  if(go) {
    message(sprintf("sourcing %s", path))
    .GlobalEnv$sourced[path] <- m
    base::source(path, ...)
  }
}

Oldukça konuşkan (çok sayıda arama message()), bu yüzden eğer umursuyorsanız bu hatları çıkarabilirsiniz. Deneyimli R kullanıcılarından gelen herhangi bir tavsiye takdir edilmektedir; R.'de oldukça yeniyim.

Kodumun olduğu adresin tamamını kullanarak sorunumu çözdüm: Daha önce:

if(!exists("foo", mode="function")) source("utils.r")

Sonra:

if(!exists("foo", mode="function")) source("C:/tests/utils.r")