ydeng/bch441-work-abc-units
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

bugfix

Browse Source
This commit is contained in:
hyginn 2020-09-24 19:50:39 +10:00
parent e55cb81f8d
commit 9323c57549
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.Rprofile
View File

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