Have R look for files in a library directory

I am using R, on linux. I have a set a functions that I use often, and that I have saved in different .r script files. Those files are in ~/r_lib/.

I would like to include those files without having to use the fully qualified name, but just "file.r". Basically I am looki开发者_如何学Cng the same command as -I in the c++ compiler.

I there a way to set the include file from R, in the .Rprofile or .Renviron file?

Thanks

You can use the sourceDir function in the Examples section of ?source:

sourceDir <- function(path, trace = TRUE, ...) {
   for (nm in list.files(path, pattern = "\\.[RrSsQq]$")) {
      if(trace) cat(nm,":")           
      source(file.path(path, nm), ...)
      if(trace) cat("\n")
   }
}

And you may want to use sys.source to avoid cluttering your global environment.

If you set the chdir parameter of source to TRUE, then the source calls within the included file will be relative to its path. Hence, you can call:

source("~/r_lib/file.R",chdir=T)

It would probably be better not to have source calls within your "library" and make your code into a package, but sometimes this is convenient.

Get all the files of your directory, in your case

d <- list.files("~/r_lib/")

then you can load them with a function of the plyr package

library(plyr)  
l_ply(d, function(x) source(paste("~/r_lib/", x, sep = "")))

If you like you can do it in a loop as well or use a different function onstead of l_ply. Conventional loop:

for (i in 1:length(d)) source(paste("~/r_lib/", d[[i]], sep = ""))

Write your own source() wrapper?

mySource <- function(script, path = "~/r_lib/", ...) {
    ## paste path+filename
    fname <- paste(path, script, sep = "")
    ## source the file
    source(fname, ...)
}

You could stick that in your .Rprofile do is will be loaded each time you start R.

If you want to load all the R files, you can extend the above easily to source all files at once

mySource <- function(path = "~/r_lib/", ...) {
    ## list of files
    fnames <- list.files(path, pattern = "\\.[RrSsQq]$")
    ## add path
    fnames <- paste(path, fnames, sep = "")
    ## source the files
    lapply(fnames, source, ...)
    invisible()
}

Actually, though, you'd be better off starting your own private package and loading that.