Specify number when browsing GitHub issues/pulls

Author: hadley

NEWS.md

@@ -9,7 +9,7 @@
 
 * `use_tidy_versions()` sets minimum version requirement for all dependencies.
 
-* New family of `browse_` functions that open useful websites (#96).
+* New family of `browse_` functions that open useful websites (#96, #103).
 
 * `use_r()` creates and opens an `.R` file
 

R/browse.R

@@ -1,6 +1,8 @@
 #' Quickly browse to important package webpages
 #'
 #' @param package Name of package; leave as `NULL` to use current package
+#' @param number For GitHub issues and pull requests. Can be a number or
+#'   `"new"`.
 #' @export
 #' @examples
 #' browse_cran("MASS")
@@ -10,14 +12,14 @@ browse_github <- function(package = NULL) {
 
 #' @export
 #' @rdname browse_github
-browse_github_issues <- function(package = NULL) {
-  view_url(github_home(package), "/issues")
+browse_github_issues <- function(package = NULL, number = NULL) {
+  view_url(github_home(package), "issues", number)
 }
 
 #' @export
 #' @rdname browse_github
-browse_github_pulls <- function(package = NULL) {
-  view_url(github_home(package), "/pulls")
+browse_github_pulls <- function(package = NULL, number = NULL) {
+  view_url(github_home(package), "pulls", number)
 }
 
 #' @export

R/helpers.R

@@ -185,7 +185,7 @@ edit_file <- function(base_path, path) {
 }
 
 view_url <- function(..., open = interactive()) {
-  url <- paste0(...)
+  url <- paste(..., sep = "/")
   if (open) {
     done("Opening url")
     utils::browseURL(url)