Merge pull request #7 from r-lib/f-git-ignore

Export use_git_ignore()

NAMESPACE

@@ -13,6 +13,7 @@ export(use_description)
 export(use_dev_version)
 export(use_git)
 export(use_git_hook)
+export(use_git_ignore)
 export(use_github)
 export(use_github_links)
 export(use_gpl3_license)

R/documentation.R

@@ -12,8 +12,8 @@ use_package_doc <- function(base_path = ".") {
   name <- project_name(base_path)
 
   use_template(
-    "packagename-package.r",
-    file.path("R", paste0(name, "-package.r")),
+    "packagename-package.R",
+    file.path("R", paste0(name, "-package.R")),
     data = list(name = name),
     base_path = base_path
   )

R/git.R

@@ -59,6 +59,7 @@ use_git_hook <- function(hook, script, base_path = ".") {
 #' @param directory Directory within \code{base_path} to set ignores
 #' @inheritParams use_template
 #' @family git helpers
+#' @export
 use_git_ignore <- function(ignores, directory = ".", base_path = ".") {
   path <- file.path(base_path, directory, ".gitignore")
   write_union(path, ignores)

R/utils.R

@@ -59,6 +59,8 @@ write_union <- function(path, new_lines, quiet = FALSE) {
 write_over <- function(contents, path) {
   stopifnot(is.character(contents), length(contents) == 1)
 
+  dir.create(dirname(path), showWarnings = FALSE)
+
   if (same_contents(path, contents))
     return(FALSE)