R/zzz.R

In HJ08003/socraticswirlInstructor-RStudioServer: Instructor side of the Socratic Swirl application

.onAttach <- function(...) {
  # For the instructor code for uploading courses, the keys are set socraticswirl-instructor.R.
  # For the dashboard running on the server, they are set here.

  # A First Course in Quantitative Social Science
  # Test database
  # Sys.setenv(PARSE_APPLICATION_ID = "TEST-KEY",
  #           PARSE_API_KEY = "TEST-KEY")
  # Production database
  # Sys.setenv(PARSE_APPLICATION_ID = "PROD-KEY",
  #            PARSE_API_KEY = "PROD-KEY")

  # Dima's demo database
  # Sys.setenv(PARSE_APPLICATION_ID = "C0pM75Sepnt5WhK6P6yhRA0TqVa6Xa3vqwZjpLfT",
             # PARSE_API_KEY = "HyXS1gEn6gf7gibjDJVWPYsnIoc0SXcp4mwohdmI")
}

.onLoad <- function(libname, pkgname) {
  FolderRoot = "/users/hubertj/Desktop/GithubClone/socraticswirlInstructor-RStudioServer"
  rstudioserver <- list(
    Instructor = "FSI2017",
    CourseFolder = paste(FolderRoot, "Courses/qss-swirl-socraticswirl/", sep = "/"),
    MergedFolder = paste(FolderRoot, "Records", sep = "/"),
    ShellScript = paste(FolderRoot, "Records/mergeStudentRecords.sh", sep = "/")
  )
  options(SocraticswirlInstructorRStudioServer = rstudioserver)

  invisible()
}