Merge pull request #66 from sboysel/set-gh-username

gists(what = "mineall") throws error if 'github.username' is not set

Author: sckott

R/gist_auth.R

@@ -22,7 +22,7 @@
 #' }
 
 gist_auth <- function(app = gistr_app, reauth = FALSE) {
-
+ 
   if (exists("auth_config", envir = cache) && !reauth) {
     return(cache$auth_config)
   }

R/gists.R

@@ -37,7 +37,10 @@ gists <- function(what='public', since=NULL, page=NULL, per_page=30, ...) {
 }
 
 switch_url <- function(x, id){
-  switch(x,
+  if (identical(x, "mineall") & is.null(getOption("github.username"))) {
+    stop("'github.username' is not set.  Please set using `options(github.username = 'your_github_username')`")
+  }
+  switch(x,         
          public = paste0(ghbase(), '/gists/public'),
          minepublic = paste0(ghbase(), '/gists'),
          mineall = sprintf('%s/users/%s/gists', ghbase(), getOption("github.username")),