tidy all code files and man pages to 80 line width where possible

Author: sckott

.Rbuildignore

@@ -12,3 +12,4 @@ figure
 .github
 CONDUCT.md
 
+^cran-comments\.md$

DESCRIPTION

@@ -10,7 +10,7 @@ Description: Work with 'GitHub' 'gists' from 'R' (e.g.,
     'gist' 'commits', and get rate limit information when 'authenticated'. Some
     requests require authentication and some do not. 'Gists' website: 
     <https://gist.github.com/>.
-Version: 0.3.7.9100
+Version: 0.4.0
 Authors@R: c(
     person("Scott", "Chamberlain", role = c("aut", "cre"), email = "[email protected]"),
     person("Ramnath", "Vaidyanathan", role = "aut"),

NEWS.md

@@ -1,3 +1,17 @@
+gistr 0.4.0
+===============
+
+### MINOR IMPROVEMENTS
+
+* Change all `dplyr::rbind_all` instances to `dplyr::bind_rows` (#69)
+
+### BUG FIXES
+
+* Fix to `gists()` internals for when `github.username` not set 
+and user selects `what = "mineall"` - now stops with informative
+message about setting `github.username` option (#66) (#67) thanks @sboysel
+
+
 gistr 0.3.6
 ===============
 

R/add_files.R

@@ -11,9 +11,7 @@
 #' # delete_files()
 #' # rename_files()
 #' }
-
-add_files <- function(gist, ...)
-{
+add_files <- function(gist, ...) {
   files <- list(...)
   files <- files_exist(files)
   gist$add_files <- files
@@ -22,8 +20,7 @@ add_files <- function(gist, ...)
 
 #' @export
 #' @rdname files
-update_files <- function(gist, ...)
-{
+update_files <- function(gist, ...) {
   files <- list(...)
   files <- files_exist(files)
   gist$update_files <- files
@@ -32,8 +29,7 @@ update_files <- function(gist, ...)
 
 #' @export
 #' @rdname files
-delete_files <- function(gist, ...)
-{
+delete_files <- function(gist, ...) {
   files <- list(...)
   files <- files_exist(files)
   gist$delete_files <- files
@@ -42,17 +38,18 @@ delete_files <- function(gist, ...)
 
 #' @export
 #' @rdname files
-rename_files <- function(gist, ...)
-{
+rename_files <- function(gist, ...) {
   gist$rename_files <- list(...)
   gist
 }
 
 files_exist <- function(x){
   tmp <- sapply(x, file.exists)
-  if(!all(tmp)){
-#     notfound <- paste0(names(tmp[!tmp]), collapse = "\n")
+  if (!all(tmp)) {
     notfound <- paste0(x[!tmp], collapse = "\n")
-    stop(sprintf("These don't exist or can't be found:\n%s", notfound), call. = FALSE)
-  } else { x }
+    stop(sprintf("These don't exist or can't be found:\n%s", notfound), 
+         call. = FALSE)
+  } else { 
+    x 
+  }
 }

R/browse.R

@@ -6,7 +6,10 @@
 
 browse <- function(gist, what="html"){
   gist <- as.gist(gist)
-  url <- switch(what, 
-         html="html_url", json="url", forks="forks_url", commits="commits_url", comments="comments_url")
+  url <- switch(
+    what, 
+    html = "html_url", json = "url", forks = "forks_url", 
+    commits = "commits_url", comments = "comments_url"
+  )
   utils::browseURL(gist[[url]])
 }

R/commits.R

@@ -3,7 +3,8 @@
 #' @export
 #' @param gist A gist object or something coerceable to a gist
 #' @param page (integer) Page number to return.
-#' @param per_page (integer) Number of items to return per page. Default 30. Max 100.
+#' @param per_page (integer) Number of items to return per page. 
+#' Default 30. Max 100.
 #' @param ... Further named args to \code{\link[httr]{GET}}
 #' @examples \dontrun{
 #' gists()[[1]] %>% commits()
@@ -16,7 +17,8 @@
 commits <- function(gist, page=NULL, per_page=30, ...) {
   gist <- as.gist(gist)
   args <- gist_compact(list(page = page, per_page = per_page))
-  res <- gist_GET(sprintf('%s/gists/%s/commits', ghbase(), gist$id), gist_auth(), ghead(), args, ...)
+  res <- gist_GET(sprintf('%s/gists/%s/commits', ghbase(), gist$id), 
+                  gist_auth(), ghead(), args, ...)
   lapply(res, structure, class = "commit")
 }
 
@@ -27,6 +29,7 @@ print.commit <- function(x, ...){
   cat("  User: ", x$user$login, "\n", sep = "")
   cat("  Commited: ", x$committed_at, "\n", sep = "")
   cat("  Commits [total, additions, deletions]: ",
-    sprintf("[%s,%s,%s]", x$change_status$total, x$change_status$additions, x$change_status$deletions),
+    sprintf("[%s,%s,%s]", x$change_status$total, x$change_status$additions, 
+            x$change_status$deletions),
     "\n", sep = "")
 }

R/delete.R

@@ -9,7 +9,8 @@
 
 delete <- function(gist, ...) {
   gist <- as.gist(gist)
-  res <- gist_DELETE(paste0(ghbase(), '/gists/', gist$id), auth = gist_auth(), headers = ghead(), ...)
+  res <- gist_DELETE(paste0(ghbase(), '/gists/', gist$id), 
+                     auth = gist_auth(), headers = ghead(), ...)
   stop_for_status(res)
   message('Your gist has been deleted')
 }

R/forks.R

@@ -3,7 +3,8 @@
 #' @export
 #' @param gist A gist object or something coerceable to a gist
 #' @param page (integer) Page number to return.
-#' @param per_page (integer) Number of items to return per page. Default 30. Max 100.
+#' @param per_page (integer) Number of items to return per page. Default 30. 
+#' Max 100.
 #' @param ... Further named args to \code{\link[httr]{GET}}
 #' @return A list of gist class objects
 #' @examples \dontrun{
@@ -18,7 +19,8 @@ forks <- function(gist, page=NULL, per_page=30, ...) {
   gist <- as.gist(gist)
   args <- gist_compact(list(page = page, per_page = per_page))
   if (length(args) == 0) args <- NULL
-  res <- gist_GET(sprintf('%s/gists/%s/forks', ghbase(), gist$id), gist_auth(), ghead(), args, ...)
+  res <- gist_GET(sprintf('%s/gists/%s/forks', ghbase(), gist$id), gist_auth(), 
+                  ghead(), args, ...)
   lapply(res, structure, class = "gist")
 }
 
@@ -43,6 +45,7 @@ forks <- function(gist, page=NULL, per_page=30, ...) {
 
 fork <- function(gist, ...) {
   gist <- as.gist(gist)
-  res <- gist_POST(sprintf('%s/gists/%s/fork', ghbase(), gist$id), gist_auth(), ghead(), list(), ...)
+  res <- gist_POST(sprintf('%s/gists/%s/fork', ghbase(), gist$id), 
+                   gist_auth(), ghead(), list(), ...)
   structure(res, class = "gist")
 }

R/gist.R

@@ -84,7 +84,8 @@ is_gisturl <- function(x){
 }
 
 is_url <- function(x){
-  grepl("https?://", x, ignore.case = TRUE) || grepl("localhost:[0-9]{4}", x, ignore.case = TRUE)
+  grepl("https?://", x, ignore.case = TRUE) || grepl("localhost:[0-9]{4}", x, 
+                                                     ignore.case = TRUE)
 }
 
 get_gistid <- function(x) {
@@ -108,8 +109,10 @@ print.gist <- function(x, ...){
   cat("  Description: ", x$description, "\n", sep = "")
   cat("  Public: ", x$public, "\n", sep = "")
   cat("  Created/Edited: ", x$created_at, " / ", x$updated_at, "\n", sep = "")
-  cat("  Files: ", paste0(vapply(x$files, "[[", "", "filename"), collapse = ", "), "\n", sep = "")
-  cat("  Truncated?: ", paste0(sapply(x$files, is_trunc), collapse = ", "), "\n", sep = "")
+  cat("  Files: ", paste0(vapply(x$files, "[[", "", "filename"), 
+                          collapse = ", "), "\n", sep = "")
+  cat("  Truncated?: ", paste0(sapply(x$files, is_trunc), collapse = ", "), 
+      "\n", sep = "")
 }
 
 is_trunc <- function(z) {

R/gist_auth.R

@@ -1,21 +1,21 @@
 #' Authorize with GitHub.
 #'
-#'
-#' This function is run automatically to allow gistr to access your GitHub account.
+#' This function is run automatically to allow gistr to access your GitHub 
+#' account.
 #'
 #' There are two ways to authorise gistr to work with your GitHub account:
 #' \itemize{
 #'  \item Generate a personal access token at
-#'    \url{https://help.github.com/articles/creating-an-access-token-for-command-line-use} and
-#'    record in the \code{GITHUB_PAT} envar.
+#'    \url{https://help.github.com/articles/creating-an-access-token-for-command-line-use} 
+#'    and record in the \code{GITHUB_PAT} envar.
 #'  \item Interactively login into your GitHub account and authorise with OAuth.
 #' }
 #'
 #' Using \code{GITHUB_PAT} is recommended.
 #'
 #' @export
-#' @param app An \code{\link[httr]{oauth_app}} for GitHub. The default uses an application
-#'    \code{gistr_oauth} created by Scott Chamberlain.
+#' @param app An \code{\link[httr]{oauth_app}} for GitHub. The default uses an 
+#' application \code{gistr_oauth} created by Scott Chamberlain.
 #' @param reauth (logical) Force re-authorization?
 #' @examples \dontrun{
 #' gist_auth()