kevinushey

# Place this in a file at '~/.Rprofile' to ensure it's sourced on startup
.First <- function() {
    # RStudio-specific startup
    if (!is.na(Sys.getenv("RSTUDIO", unset = NA)) &&
        Sys.info()[["sysname"]] == "Windows")
    {
        # work around mis-encoded environment variables
        USERPROFILE <- Sys.getenv("USERPROFILE")
        HOME <- file.path(USERPROFILE, "Documents", fsep = "\\")
        R_USER <- HOME