Implement first browse functions

Fixes #96

Author: hadley

NAMESPACE

@@ -1,5 +1,9 @@
 # Generated by roxygen2: do not edit by hand
 
+export(browse_cran)
+export(browse_github)
+export(browse_github_issues)
+export(browse_github_pulls)
 export(create_package)
 export(create_project)
 export(edit_git_config)

NEWS.md

@@ -1,5 +1,7 @@
 # usethis 1.0.0.9000
 
+* New family of `browse_` functions that open useful websites (#96)
+
 * `use_r()` creates and opens an `.R` file
 
 # usethis 1.0.0

R/browse.R

@@ -0,0 +1,51 @@
+#' Quickly browse to important package webpages
+#'
+#' @param package Name of package; leave as `NULL` to use current package
+#' @export
+#' @examples
+#' browse_cran("MASS")
+browse_github <- function(package = NULL) {
+  view_url(github_home(package = package))
+}
+
+#' @export
+#' @rdname browse_github
+browse_github_issues <- function(package = NULL) {
+  view_url(github_home(package = package), "/issues")
+}
+
+#' @export
+#' @rdname browse_github
+browse_github_pulls <- function(package = NULL) {
+  view_url(github_home(package = package), "/pulls")
+}
+
+#' @export
+#' @rdname browse_github
+browse_cran <- function(package = NULL) {
+  view_url(cran_home(package = package))
+}
+
+github_home <- function(package = NULL) {
+  if (is.null(package)) {
+    desc <- desc::desc(proj_get())
+  } else {
+    desc <- desc::desc(package = package)
+  }
+
+  urls <- desc$get_urls()
+  gh_links <- grep("^https?://github.com/", urls, value = TRUE)
+
+  if (length(gh_links) == 0) {
+    stop("Couldn't find GitHub home", call. = FALSE)
+  }
+
+  gh_links[[1]]
+}
+
+
+cran_home <- function(package = NULL) {
+  package <- package %||% project_name()
+
+  paste0("https://cran.r-project.org/package=", package)
+}

R/helpers.R

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