Experiment with opening github url

@jennybc: try it out and let me know what you think #93

Author: hadley

R/github.R

@@ -136,7 +136,7 @@ use_github <- function(organisation = NULL,
   }
   git2r::branch_set_upstream(git2r::head(r), "origin/master")
 
-  done("View repo at ", create$html_url)
+  view_url(create$html_url)
 
   invisible(NULL)
 }

R/helpers.R

@@ -183,3 +183,13 @@ edit_file <- function(base_path, path) {
   }
   invisible()
 }
+
+view_url <- function(url, open = interactive()) {
+  if (open) {
+    done("Opening url")
+    utils::browseURL(url)
+  } else {
+    todo("Open url ", url)
+  }
+  invisible()
+}