fixed install_from_swirl issue

DESCRIPTION

@@ -4,7 +4,7 @@ Description: Use the R console as an interactive learning
     environment. Users receive immediate feedback as they are guided through
     self-paced lessons in data science and R programming.
 URL: http://swirlstats.com
-Version: 2.3.1.9006
+Version: 2.3.1.9007
 License: MIT + file LICENSE
 Authors@R: c(
     person("Sean", "Kross", email = "[email protected]", role = c("aut", "cre")),
@@ -19,7 +19,7 @@ Depends:
 Imports:
     stringr,
     testthat,
-    httr,
+    httr (>= 1.1.0),
     yaml,
     RCurl,
     digest,

R/install_course.R

@@ -155,7 +155,7 @@ install_from_swirl <- function(course_name, dev = FALSE, mirror = "github"){
   response <- GET(url, progress())
 
   # Construct path to Courses
-  path <- file.path(("courses_dir"), "temp.zip")
+  path <- file.path(swirl_courses_dir(), "temp.zip")
 
   # Write the response as a zip
   writeBin(content(response, "raw"), path)

R/options.R

@@ -1,8 +1,13 @@
 # Get swirl data file path
 #' @importFrom rappdirs user_data_dir
 swirl_data_dir <- function(){
-  # Find user data directory
-  user_data_dir(appname = "swirl", appauthor = "swirldev", roaming = TRUE)
+  sdd <- getOption("swirl_data_dir")
+
+  if(is.null(sdd)){
+    user_data_dir(appname = "swirl", appauthor = "swirldev", roaming = TRUE)
+  } else {
+    sdd
+  }
 }
 
 # Get swirl courses dir
@@ -15,3 +20,29 @@ swirl_courses_dir <- function(){
     scd
   }
 }
+
+#' Get swirl options
+#' 
+#' This function is a wrapper for \code{options()} that allows the user to
+#' see the state of how certain options for swirl are set up.
+#' 
+#' @export
+#' @examples 
+#' \dontrun{
+#' # See current current swirl options
+#' swirl_options()
+#' 
+#' # Set an option
+#' swirl_options(swirl_logging = TRUE)
+#' }
+swirl_options <- function(...){
+  if(length(list(...)) == 0){
+    list(
+      swirl_courses_dir = getOption("swirl_courses_dir"),
+      swirl_language = getOption("swirl_language"),
+      swirl_logging = getOption("swirl_logging")
+    )
+  } else {
+    options(...)
+  }
+}