Add argument 'gitignore' to taf.skeleton()

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: TAF
 Version: 4.3.0
-Date: 2023-11-22
+Date: 2023-11-26
 Title: Transparent Assessment Framework for Reproducible Research
 Authors@R: c(person("Arni", "Magnusson", role=c("aut","cre"), email="[email protected]"),
              person("Colin", "Millar", role="aut"),

NEWS.md

@@ -1,10 +1,13 @@
-# TAF 4.3.0 (2023-11-22)
+# TAF 4.3.0 (2023-11-26)
 
 * Added function fdim() to show the dimensions of an FLR table.
 
 * Added function taf.libraries() to load all packages from TAF library. Code
   contributed by Iago Mosqueira.
 
+* Added argument 'gitignore' to taf.skeleton() for writing a .gitignore file,
+  enabled by default.
+
 * Improved draft.software() so it supports packages from r-universe. Code
   contributed by Iago Mosqueira.
 

R/taf.skeleton.R

@@ -9,6 +9,7 @@
 #'        TAF package, i.e. \code{library(TAF)}.
 #' @param model.script model script filename, either \code{model.R} (default) or
 #'        \code{method.R}.
+#' @param gitignore whether to write a \file{.gitignore} file.
 #'
 #' @return Full path to analysis directory.
 #'
@@ -25,7 +26,7 @@
 #' @export
 
 taf.skeleton <- function(path = ".", force = FALSE, pkgs = "TAF",
-                         model.script = "model.R")
+                         model.script = "model.R", gitignore=TRUE)
 {
   # only overwrite files if force = TRUE
   safe.cat <- function(..., file, force) {
@@ -62,5 +63,13 @@ taf.skeleton <- function(path = ".", force = FALSE, pkgs = "TAF",
              force = force)
   }
 
+  if (gitignore) {
+    ignore <- c("/boot/data", "/boot/software", "/data",
+                paste0("/", file_path_sans_ext(model.script)), "/output",
+                "/report", "*.Rproj", ".RData", ".Rhistory", ".Rproj.user",
+                ".Ruserdata")
+    write(ignore, ".gitignore")
+  }
+
   invisible(getwd())
 }