added rappdirs

mameri · Apr 2, 2015 · 84a368e · 84a368e
1 parent 01c1d36
commit 84a368e
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -22,5 +22,6 @@ Imports:
     yaml,
     RCurl,
     digest,
-    tools
+    tools,
+    rappdirs
 Roxygen: list(wrap = FALSE)
diff --git a/R/zzz.R b/R/zzz.R
@@ -1,3 +1,14 @@
+.onLoad <- function(libname, pkgname){
+  udd <- user_data_dir(appname = "swirl", appauthor = "swirldev", roaming = TRUE)
+  if(!file.exists(udd)){
+    dir.create(udd, recursive = TRUE)
+    swirl_options <- data.frame(course_path = file.path(system.file("Courses", package = "swirl")))
+    write.csv(swirl_options, file = file.path(udd, "swirl_options.csv"), row.names = FALSE)
+  }
+
+  invisible()
+}
+
 .onAttach <- function(...) {
   if(length(ls(envir=globalenv())) > 0) {
     packageStartupMessage(