fix #71 gist() can get a specfic revision, bump dev ver

Author: sckott

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.4.1.9310
+Version: 0.4.1.9313
 Authors@R: c(
     person("Scott", "Chamberlain", role = c("aut", "cre"), email = "myrmecocystus@gmail.com"),
     person("Ramnath", "Vaidyanathan", role = "aut"),

R/gist.R

@@ -2,6 +2,7 @@
 #'
 #' @export
 #' @param id (character) A gist id, or a gist URL
+#' @param revision (character) A sha. optional
 #' @param x Object to coerce. Can be an integer (gist id), string
 #'   (gist id), a gist, or an list that can be coerced to a gist.
 #' @template all
@@ -17,6 +18,13 @@
 #' as.gist('f1403260eb92f5dfa7e1')
 #' as.gist(10)
 #' as.gist(gist('f1403260eb92f5dfa7e1'))
+#' 
+#' # get a specific revision of a gist
+#' id <- 'c1e2cb547d9f22bd314da50fe9c7b503'
+#' gist(id, 'a5bc5c143beb697f23b2c320ff5a8dacf960b0f3')
+#' gist(id, 'b70d94a8222a4326dff46fc85bc69d0179bd1da2')
+#' gist(id, '648bb44ab9ae59d57b4ea5de7d85e24103717e8b')
+#' gist(id, '0259b13c7653dc95e20193133bcf71811888cbe6')
 #'
 #' # from a url, or partial url
 #' x <- "https://gist.github.com/expersso/4ac33b9c00751fddc7f8"
@@ -42,8 +50,10 @@
 #' # httr::GET(url)
 #' }
 
-gist <- function(id, ...){
-  res <- gist_GET(switch_url('id', normalize_id(id)), gist_auth(), ghead(), ...)
+gist <- function(id, revision = NULL, ...){
+  url <- switch_url('id', normalize_id(id))
+  if (!is.null(revision)) url <- file.path(url, revision)
+  res <- gist_GET(url, gist_auth(), ghead(), ...)
   as.gist(res)
 }
 

man/gist.Rd

@@ -25,6 +25,22 @@ test_that("as.gist works - on random sample of gist ids", {
   }))
 })
 
+test_that("gist works getting a specific revision", {
+  skip_on_cran()
+  
+  id <- 'c1e2cb547d9f22bd314da50fe9c7b503'
+  rev1 <- gist(id, 'a5bc5c143beb697f23b2c320ff5a8dacf960b0f3')
+  rev2 <- gist(id, 'b70d94a8222a4326dff46fc85bc69d0179bd1da2')
+
+  expect_false(
+    identical(
+      rev1$files$clean_species.R$content,
+      rev2$files$clean_species.R$content
+    )
+  )
+  expect_match(rev1$id, rev2$id)
+})
+
 test_that("httr config options work", {
   skip_on_cran()