R/socraticswirl-instructor.R

In dimagor/socraticswirlInstructor: Instructor side of the Socratic Swirl application

#' sign up with an instructor account
#'
#' Sign up an account for teaching and uploading SocraticSwirl lessons.
#' Note that this requires an email confirmation.
#'
#' @param username desired username
#' @param password your password
#' @param email e-mail address, which will be sent a confirmation link
#'
#' @import rparse
#'
#' @export
socratic_swirl_signup <- function(username, password, email, instance = "prod") {
  # Brfore:
  #   For the instructor code for uploading courses, the keys are set here.
  #   For the dashboard running on the server, they are set in server.R.
  # Then:
  #   The keys are all in key.R, and we use setenv/getenv to retrieve the correct keys
  #
  # path="./../config/keys.R"  # read keys and set instructor and password
  # source(path, local=TRUE)
  #
  # Now:
  #    Put the keys.R in the data directory, and load them this way
  #
  data(parse_keys)
  #
  # By default, it is for production, unless instance = "test"
  #
  if (instance == "test") {
    Sys.setenv(PARSE_APPLICATION_ID = PARSE_APPLICATION_ID_TEST)
    Sys.setenv(PARSE_API_KEY = PARSE_API_KEY_TEST)
  } else {
    Sys.setenv(PARSE_APPLICATION_ID = PARSE_APPLICATION_ID_PROD)
    Sys.setenv(PARSE_API_KEY = PARSE_API_KEY_PROD)
  }

  parse_signup(username, password, email = email)
  u <- parse_current_user()
  options(socratic_swirl_instructor = u$username)
}


#' Log into an instructor account
#'
#' Log into an instructor account. This has to be done before accessing the
#' SocraticSwirl dashboard or submitting a new course.
#'
#' @param username account username
#' @param password account password
#'
#' @export
socratic_swirl_instructor <- function(username, password, instance = "prod") {
  # Brfore:
  #   For the instructor code for uploading courses, the keys are set here.
  #   For the dashboard running on the server, they are set in server.R.
  # Then:
  #   The keys are all in key.R, and we use setenv/getenv to retrieve the correct keys
  #
  # path="./../config/keys.R"  # read keys and set instructor and password
  # source(path, local=TRUE)
  #
  # Now:
  #    Put the keys.R in the data directory, and load them this way
  #
  data(parse_keys)
  #
  # By default, it is for production, unless instance = "test"
  #
  if (instance == "test") {
    Sys.setenv(PARSE_APPLICATION_ID = PARSE_APPLICATION_ID_TEST)
    Sys.setenv(PARSE_API_KEY = PARSE_API_KEY_TEST)
  } else {
    Sys.setenv(PARSE_APPLICATION_ID = PARSE_APPLICATION_ID_PROD)
    Sys.setenv(PARSE_API_KEY = PARSE_API_KEY_PROD)
  }

# if (instance == "test") {
#   Sys.setenv(PARSE_APPLICATION_ID = Sys.getenv("PARSE_APPLICATION_ID_TEST"))
#   Sys.setenv(PARSE_API_KEY = Sys.getenv("PARSE_API_KEY_TEST"))
# } else {
#   Sys.setenv(PARSE_APPLICATION_ID = Sys.getenv("PARSE_APPLICATION_ID_PROD"))
#   Sys.setenv(PARSE_API_KEY = Sys.getenv("PARSE_API_KEY_PROD"))
# }

  parse_login(username, password)
  u <- parse_current_user()
  options(socratic_swirl_instructor = u$username)
}


#' Open the SocraticSwirl dashboard
#'
#' Opens the SocraticSwirl instructor dashboard in a browser.
#'
#' @param demo whether to launch a version with demo data
#'
#' @import shinydashboard
#' @import tidyr
#'
#' @export
dashboard <- function(demo = FALSE) {
  if (demo) {
    # set instructor to demo, while returning to original afterwards
    original_instructor <- getOption("socratic_swirl_instructor")
    options(socratic_swirl_instructor = "demo")
    on.exit(options(socratic_swirl_instructor = original_instructor))
  } else {
    u <- getOption("parse_user")
    if (is.null("parse_user")) {
      stop("Not signed in; use socratic_swirl_instructor()",
           "to sign in before starting the dashboard")
    }
  }

  app <- system.file("dashboard", package = "socraticswirlInstructor")
  shiny::runApp(app, host="128.112.102.51", port=8080, launch.browser = TRUE)
}