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