init-HahowRTutorial.R

if (package_version(R.version) < package_version("3.2.3")) local({
  msg <- sprintf("The version of R (%s) is not compatible with the course content. Please visit https://mran.revolutionanalytics.com/snapshot/2017-04-01/ to upgrade your R.", package_version(R.version))
  Encoding(msg) <- "UTF-8"
  stop(msg)
})


local({
  repos <- "https://wush978.github.io/R"
  utils::install.packages(c('stringr', 'stringi', 'testthat', 'httr', 'yaml', 'RCurl', 'digest', 'rappdirs', 'getPass'))
  utils::install.packages(file.path(repos, 'pkgs', 'swirl_101.5.11.tar.gz'), repos = NULL, type = 'source')
  library(swirl)
  library(curl)
  library(methods)
  try(uninstall_course("HahowRTutorial"), silent=TRUE)
  install_course_url(sprintf("%s/course/HahowRTutorial.zip", repos))
})