The environment setup for my R profile

.Rprofile

local({

    ## Put everything in a separate environment and attach that
    ## environment. Re-use the existing one from the search path it
    ## it's available, so that re-executing this file doesn't add a
    ## new environment to the search path every time.
    custom_env <- tryCatch(as.environment("rct_custom_env"),
                           error=function(...) {
                               attach(NULL, name="rct_custom_env")
                               as.environment("rct_custom_env")
                           })
    
    ## Now add anything you want to the environment, and it will now
    ## persist after clearing your workspace
    custom_env$myfunc <- function(x) {
        message("Called myfunc on:")
        print(x)
    }
})