Implement create_project

And ensure `use_rstudio()` doesn't created unneeded files in a project. Fixes #82

Author: hadley

NAMESPACE

@@ -1,6 +1,7 @@
 # Generated by roxygen2: do not edit by hand
 
 export(create_package)
+export(create_project)
 export(edit_environ_user)
 export(edit_git_config_user)
 export(edit_git_ignore_user)

NEWS.md

@@ -2,7 +2,7 @@
 
 This is a new package that extracts out many functions that previously lived in devtools, as well as providing more building blocks so you can create your own helpers. 
 
-Functions are now designed to work with a directory that's not necessarily a package. This doesn't always make sense but in the long term makes usesthis more flexible for other tasks like (e.g.) data analysis. All `use_` functions have the concept of a active project: rather than supply `base_path`, you can now change the active project by calling `proj_set()`.
+Functions are now designed to work with a directory that's not necessarily a package. This doesn't always make sense but in the long term makes usesthis more flexible for other tasks like (e.g.) data analysis. All `use_` functions have the concept of a active project: rather than supply `base_path`, you can now change the active project by calling `proj_set()`. There is also a new `create_project()` which creates a basic RStudio project.
 
 The output from all usethis commands has been reviewed to be informative but not overwhelming. usethis takes advantage of colour (using the crayon package and features in RStudio 1.1) to help chunk the output and clearly differentiate what you need to do vs. what has been done for you.
 

R/create.R

@@ -1,7 +1,8 @@
-#' Create a package from scratch
+#' Create a new package or project
 #'
-#' This changes the active project to the new package so that subsequent
-#' `use_` calls will affect the project that you've just created.
+#' Both functions change the active project so that subsequent `use_` calls
+#' will affect the project that you've just created. See `proj_set()` to
+#' manually reset it.
 #'
 #' @param path A path. If it exists, it will be used. If it does not
 #'   exist, it will be created (providing that the parent path exists).
@@ -46,6 +47,33 @@ create_package <- function(path = ".",
   invisible(TRUE)
 }
 
+#' @export
+#' @rdname create_package
+create_project <- function(path = ".",
+                           open = interactive()) {
+
+  path <- normalizePath(path, mustWork = FALSE)
+
+  name <- basename(path)
+  check_not_nested(dirname(path))
+
+  create_directory(dirname(path), name)
+  cat_line(crayon::bold("Changing active project to", crayon::red(name)))
+  proj_set(path, force = TRUE)
+
+  use_rstudio()
+  use_directory("R")
+
+  if (open) {
+    done("Opening project in new session")
+    project_path <- file.path(normalizePath(path), paste0(name, ".Rproj"))
+    utils::browseURL(project_path)
+  }
+
+  invisible(TRUE)
+}
+
+
 check_not_nested <- function(path) {
   proj_root <- proj_find(path)
 

R/helpers.R

@@ -40,6 +40,10 @@ find_template <- function(template_name) {
   path
 }
 
+is_package <- function(base_path = proj_get()) {
+  file.exists(file.path(base_path, "DESCRIPTION"))
+}
+
 package_data <- function(base_path = proj_get()) {
   desc <- desc::description$new(base_path)
 

R/rstudio.R

@@ -12,7 +12,9 @@ use_rstudio <- function() {
   )
 
   use_git_ignore(".Rproj.user")
-  use_build_ignore(c("^.*\\.Rproj$", "^\\.Rproj\\.user$"), escape = FALSE)
+  if (is_package()) {
+    use_build_ignore(c("^.*\\.Rproj$", "^\\.Rproj\\.user$"), escape = FALSE)
+  }
 
   invisible(TRUE)
 }