bch441-work-abc-units/.Rprofile

# .Rprofile
#
# This script is automatically executed on startup
# ==============================================================================

init <- function() {

  # Create a local copy of myScript.R if not done yet.
  if (! file.exists("myScript.R") && file.exists(".tmp.R")) {
    file.copy(".tmp.R", "myScript.R")
    cat("A new file \"myScript.R\" was created. You can use it for\n")
    cat("notes and code experiments.\n\n")
  }

  cat("\n\n")
  cat("Please open the file \".myProfile.R\" (click on the file-name in the\n")
  cat("\"files\" pane), edit it and save it.\n")
  cat("Then click the checkbox, and use the More -> Move... dialogue\n")
  cat("to move it into the \"myScripts\" folder.\n\n")

  file.edit("ABC-units.R")
  return(invisible(NULL))
}

if (! file.exists("./myScripts/.myProfile.R")) {
  cat("\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n")
  cat("    =================")
  cat("\n\n")
  cat("        WELCOME !\n")
  cat("\n")
  cat("  Type  'init()'  to begin\n\n")
  cat("\n")
  cat("    =================")
  cat("\n\n")

} else {  # local profile exists ... validate state:
  cat("\n\nLoading local functions ...")

  source("./myScripts/.myProfile.R")

  if (! exists("myEMail")) {  # ... has eMail been defined?
    cat("ERROR !\n")
    cat("=======\n")
    cat("The file \"./myScripts/.myProfile.R\" exists, but\n")
    cat("the variable \"myEMail\" was not loaded.\n")
    cat("Please contact your instructor to continue.\n\n")
  }
  if (! exists("myStudentNumber")) {  # ... has the Student Number been defined?
    cat("ERROR !\n")
    cat("=======\n")
    cat("The file \"./myScripts/.myProfile.R\" exists, but\n")
    cat("the variable \"myStudentNumber\" was not loaded.\n")
    cat("Please contact your instructor to continue.\n\n")
  }
  if (! grepl("^(100.{7})|(99.{7})$", as.character(myStudentNumber))) {
    cat("ERROR !\n")                 # is the Student Number valid?
    cat("=======\n")
    cat("The file \"./myScripts/.myProfile.R\" exists, but\n")
    cat("your Student Number could not be validated.\n")
    cat("Please examine the file \"./myScripts/.myProfile.R\"\n")
    cat(" and fix the problem or contact your instructor to continue.\n\n")
  }

  source(".utilities.R")  # local profile appears sane, source utilities

  if (! exists("MYSPE")) {  # if MYSPE has not yet been defined, define it now
                            # ... and write it into the profile.
       prf <- readLines("./myScripts/.myProfile.R")
       iEmail <- grep("^\\s*myStudentNumber\\s*<-", prf)
       out <- prf[1:iEmail]
       out <- c(out, sprintf("MYSPE <- \"%s\" ",
                             getMYSPE(myStudentNumber)))
       out <- c(out, prf[(iEmail+1):length(prf)])
       writeLines(out, "./myScripts/.myProfile.R")

       cat("\n")
       cat(sprintf("MYSPE (%s) was added to \"./myScripts/.myProfile.R\"\n\n",
                   getMYSPE(myStudentNumber)))
       MYSPE <- getMYSPE(myStudentNumber)  # ... define it for immediate use
       rm(prf, iEmail, out)                # cleanup
  }
  cat("... done.\n\n")
}

if (default.stringsAsFactors()) {
  cat("WARNING.\n")
  cat("========\n")
  cat("Your default \"stringsAsFactors\" parameter is set to \"TRUE\".\n")
  cat("This will break some of the code.\n")
  cat("Please contact your instructor to troubleshoot and fix this issue.\n")
  cat("\n")
}

# [END]