Implement use_data_raw().

Closes #541

NAMESPACE

@@ -88,6 +88,7 @@ export(submit_cran)
 export(test)
 export(unload)
 export(use_data)
+export(use_data_raw)
 export(use_knitr)
 export(use_package_doc)
 export(use_rcpp)

NEWS.md

@@ -18,6 +18,9 @@
 * New `use_data()` makes it easy to include data in a package, either 
   in `data/` (for exported datasets) or in `R/sysdata.rda` (for internal
   data). (#542)
+
+* New `use_data_raw()` to create `data-raw/` directory for reproducible
+  generation of `data/` files (#541).
 
 * New `use_rcpp()` sets up a package to use Rcpp.
 

R/infrastructure.R

@@ -244,3 +244,25 @@ use_data <- function(..., pkg = ".", internal = FALSE, overwrite = FALSE,
   invisible()
 }
 
+#' Use \code{data-raw} to compute package datasets.
+#'
+#' @param pkg Package where to create \code{data-raw}. Defaults to package in
+#'   working directory.
+#' @export
+#' @family infrastructure
+use_data_raw <- function(pkg = ".") {
+  pkg <- as.package(pkg)
+
+  path <- file.path(pkg$path, "data-raw")
+  if (file.exists(path)) {
+    stop("data-raw/ already exists", call. = FALSE)
+  }
+
+  message("Creating data-raw/")
+  dir.create(path)
+  add_build_ignore(pkg, "data-raw")
+
+  message("Next: \n",
+    "* Add data creation scripts in data-raw\n",
+    "* Use devtools::use_data() to add data to package")
+}

man/infrastructure.Rd

@@ -66,6 +66,7 @@ Add basic travis template to a package. Also adds \code{.travis.yml} to
 Adds a roxygen template for package documentation
 }
 \seealso{
-Other infrastructure: \code{\link{use_data}}
+Other infrastructure: \code{\link{use_data_raw}};
+  \code{\link{use_data}}
 }
 

man/use_data.Rd

@@ -42,6 +42,7 @@ Other infrastructure: \code{\link{add_rstudio_project}},
   \code{\link{add_travis}}, \code{\link{infrastructure}},
   \code{\link{use_knitr}}, \code{\link{use_package_doc}},
   \code{\link{use_rcpp}}, \code{\link{use_rstudio}},
-  \code{\link{use_testthat}}, \code{\link{use_travis}}
+  \code{\link{use_testthat}}, \code{\link{use_travis}};
+  \code{\link{use_data_raw}}
 }
 

man/use_data_raw.Rd

@@ -0,0 +1,24 @@
+% Generated by roxygen2 (4.0.1): do not edit by hand
+\name{use_data_raw}
+\alias{use_data_raw}
+\title{Use \code{data-raw} to compute package datasets.}
+\usage{
+use_data_raw(pkg = ".")
+}
+\arguments{
+\item{pkg}{Package where to create \code{data-raw}. Defaults to package in
+working directory.}
+}
+\description{
+Use \code{data-raw} to compute package datasets.
+}
+\seealso{
+Other infrastructure: \code{\link{add_rstudio_project}},
+  \code{\link{add_test_infrastructure}},
+  \code{\link{add_travis}}, \code{\link{infrastructure}},
+  \code{\link{use_knitr}}, \code{\link{use_package_doc}},
+  \code{\link{use_rcpp}}, \code{\link{use_rstudio}},
+  \code{\link{use_testthat}}, \code{\link{use_travis}};
+  \code{\link{use_data}}
+}
+