Rough cut of create_from_github

Fixes #109

Author: hadley

NEWS.md

@@ -1,5 +1,8 @@
 # usethis 1.0.0.9000
 
+* New `create_from_github()` creates a project from an existing GitHub
+  repository, forking if needed (#109).
+
 * `use_r()` will now open the matching `R/` file if you have a test file
   open (#105).
 

R/create.R

@@ -34,14 +34,7 @@ create_package <- function(path = ".",
     use_rstudio()
   }
   if (open) {
-    if (rstudio) {
-      done("Opening project in new session")
-      project_path <- file.path(normalizePath(path), paste0(name, ".Rproj"))
-      utils::browseURL(project_path)
-    } else {
-      setwd(path)
-      done("Changing working directory to ", value(path))
-    }
+    open_project(path, name, rstudio = rstudio)
   }
 
   invisible(TRUE)
@@ -50,6 +43,7 @@ create_package <- function(path = ".",
 #' @export
 #' @rdname create_package
 create_project <- function(path = ".",
+                           rstudio = rstudioapi::isAvailable(),
                            open = interactive()) {
 
   path <- normalizePath(path, mustWork = FALSE)
@@ -61,18 +55,79 @@ create_project <- function(path = ".",
   cat_line(crayon::bold("Changing active project to", crayon::red(name)))
   proj_set(path, force = TRUE)
 
-  use_rstudio()
   use_directory("R")
 
+  if (rstudio) {
+    use_rstudio()
+  }
   if (open) {
-    done("Opening project in new session")
-    project_path <- file.path(normalizePath(path), paste0(name, ".Rproj"))
-    utils::browseURL(project_path)
+    open_project(path, name, rstudio = rstudio)
   }
 
   invisible(TRUE)
 }
 
+#' Create a project from a github repository
+#'
+#' @param repo Full name of repository: `owner/repo`
+#' @param path Directory in which to clone repository: will create new
+#'   directory inside `path`.
+#' @param fork Create a fork before cloning? Defaults to `TRUE` if you
+#'   can't push to `repo`, `FALSE` if you can.
+#' @param open Open the new project once cloned?
+#' @export
+#' @rdname
+create_from_github <- function(repo, path = ".", fork = NA, open = TRUE) {
+  repo <- strsplit(repo, "/")[[1]]
+  if (length(repo) != 2) {
+    stop("`repo` must be of form user/reponame", call. = FALSE)
+  }
+  owner <- repo[[1]]
+  repo <- repo[[2]]
+  repo_info <- gh::gh("GET /repos/:owner/:repo", owner = owner, repo = repo)
+
+  check_not_nested(dirname(path), repo)
+
+  # By default, fork only if you can't push to the repo
+  if (is.na(fork)) {
+    fork <- !repo_info$permissions$push
+  }
+
+  if (fork) {
+    done("Forking repo")
+    fork_info <- gh::gh("POST /repos/:owner/:repo/forks", owner = owner, repo = repo)
+    owner <- fork_info$owner$login
+    git_url <- fork_info$git_url
+  } else {
+    git_url <- repo_info$git_url
+  }
+
+  done("Cloning repo")
+  repo_path <- create_directory(path, repo)
+  git2r::clone(git_url, normalizePath(repo_path), progress = FALSE)
+  proj_set(repo_path)
+
+  if (open) {
+    open_project(repo_path, repo)
+  }
+}
+
+
+open_project <- function(path, name, rstudio = NA) {
+  project_path <- file.path(normalizePath(path), paste0(name, ".Rproj"))
+  if (is.na(rstudio)) {
+    rstudio <- file.exists(project_path)
+  }
+
+  if (rstudio) {
+    done("Opening project in new RStudio instance")
+    utils::browseURL(project_path)
+  } else {
+    setwd(path)
+    done("Changing working directory to ", value(path))
+  }
+  invisible(TRUE)
+}
 
 check_not_nested <- function(path, name) {
   proj_root <- proj_find(path)

R/helpers.R

@@ -161,6 +161,8 @@ create_directory <- function(base_path, path) {
       stop("Failed to create path", call. = FALSE)
     }
   }
+
+  pkg_path
 }
 
 edit_file <- function(base_path, path) {