From 9323c5754939403588293ae6e0c4e758f90f1fa4 Mon Sep 17 00:00:00 2001
From: hyginn <boris.steipe@utoronto.ca>
Date: Thu, 24 Sep 2020 19:50:39 +1000
Subject: [PATCH] bugfix

---
 .Rprofile | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/.Rprofile b/.Rprofile
index fe93c2c..5d0501c 100644
--- a/.Rprofile
+++ b/.Rprofile
@@ -68,7 +68,7 @@ if (! file.exists("./myScripts/.myProfile.R")) {
        prf <- readLines("./myScripts/.myProfile.R")
        iEmail <- grep("^\\s*myStudentNumber\\s*<-", prf)
        out <- prf[1:iEmail]
-       out <- c(out, sprintf("MYSPE <- %s ",
+       out <- c(out, sprintf("MYSPE <- \"%s\" ",
                              getMYSPE(myStudentNumber)))
        out <- c(out, prf[(iEmail+1):length(prf)])
        writeLines(out, "./myScripts/.myProfile.R")