Merge pull request #95 from jiho/feature/options

Use package-wide options to set some preferences.  
Fixes #94.

R/devel-mode.r

@@ -19,7 +19,7 @@
 dev_mode <- local({
   .prompt <- NULL
 
-  function(on = NULL, path = "~/R-dev") {
+  function(on = NULL, path = getOption("devtools.path")) {
     lib_paths <- .libPaths()
 
     path <- normalizePath(path, winslash = "/", mustWork = FALSE)

R/install-github.r

@@ -14,7 +14,7 @@
 #' \dontrun{
 #' install_github("roxygen")
 #' }
-install_github <- function(repo, username = "hadley", branch = "master", subdir = NULL, ...) {
+install_github <- function(repo, username = getOption("github.user"), branch = "master", subdir = NULL, ...) {
   message("Installing github repo(s) ", 
     paste(repo, branch, sep = "/", collapse = ", "), 
     " from ", 

R/zzz.r

@@ -64,3 +64,17 @@ current_ver <- function() {
   paste(version$major, ".", minor[1], sep = "")
 }
 
+.onLoad <- function(libname, pkgname) {
+  op <- options()
+  op.devtools <- list(
+    devtools.path="~/R-dev",
+    github.user="hadley"
+  )
+  toset <- !(names(op.devtools) %in% names(op))
+  if(any(toset)) options(op.devtools[toset])
+}
+
+on_path <- function(...) {
+  unname(Sys.which(c(...)) != "")
+}
+