# This should go in ‘R_HOME/etc/Rprofile.site'
# If unsure where R_HOME is, run R.home(component = "home") in the R console
# On my system, it is /usr/lib/R
# Thus  sudo vim /usr/lib/R/etc/Rprofile.site

cat("\n ----------------- \n Setting up Prompt\n")
STY <- system("echo $STY", TRUE)


options(prompt=paste0({
if (nchar(STY)) {
    if (grepl("^[0-9]+\\.pts", STY))
      substr(STY, 1, regexpr("\\.pts", STY) - 1)
    else 
      strsplit(STY, "\\.")[[1]][[2]]
} else ""},  "> "))