.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
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.