R/zzz.R

In HJ08003/socraticswirl-RStudioServer: Learn R With Interactive In-class Examples

.onAttach <- function(...) {
  packageStartupMessage(
      make_pretty("Hi! When you're ready, type socratic_swirl(...) ",
                  "with the options your instructor gives you to ",
                  "specify your lesson and instructor.",
                  skip_after=TRUE)
    )
  
  # A First Course in Quantitative Social Science
  # Test or production database
  ## opts <- socratic_swirl_options()
  ## if (opts$instance == "test") {
  ##     Sys.setenv(PARSE_APPLICATION_ID = "ExUHBnNy849HFGslrnwX31DcoxUxPtcf2FA1QIvr",
  ##                PARSE_API_KEY = "dGuEAkmJLEkTLwcOkdW5AmoeS4I44sfBTu9hWO05")
  ## } else {
  ##     Sys.setenv(PARSE_APPLICATION_ID = "xxx",
  ##                PARSE_API_KEY = "xxx")
  ## }
  
  # Dima's demo database
  #Sys.setenv(PARSE_APPLICATION_ID = "C0pM75Sepnt5WhK6P6yhRA0TqVa6Xa3vqwZjpLfT",
  #           PARSE_API_KEY = "HyXS1gEn6gf7gibjDJVWPYsnIoc0SXcp4mwohdmI")

  invisible()
}

.onLoad <- function(libname, pkgname) {
  rstudioserver <- list(
    Instructor = "FSI2017",
    CourseFolder = "/usr/local/R/FSI2017/Courses/qss-swirl-socraticswirl",
    RecordFolder = "/usr/local/R/FSI2017/Records"
    # CourseFolder = "/Users/hubertj/Desktop/NewProject/SocraticSwirl/socraticswirlInstructor-2016pol345/courses/qss-swirl-socraticswirl",
    # CourseFolder = "/Users/hubertj/Desktop/GithubClone/socraticswirl-RStudioServer/courses/qss-swirl-socraticswirl",
    # RecordFolder = "/tmp/FSI2017"
  )
  options(SocraticswirlRStudioServer = rstudioserver)

  invisible()
}

make_pretty <- function(..., skip_before=TRUE, skip_after=FALSE) {
  wrapped <- strwrap(str_c(..., sep = " "),
                     width = getOption("width") - 2)
  mes <- str_c("| ", wrapped, collapse = "\n")
  if(skip_before) mes <- paste0("\n", mes)
  if(skip_after) mes <- paste0(mes, "\n")
  mes
}