declare import

ref #10

.Rbuildignore

@@ -11,6 +11,7 @@ README.html$
 documentation-peek.pdf
 documentation-for-developers/
 playgrounds/
+sandbox/
 utility/
 ^\.travis\.yml$
 ^appveyor\.yml$

DESCRIPTION

@@ -23,6 +23,7 @@ Depends:
     R (>= 3.0.0),
     stats
 Imports:
+    config,
     dplyr,
     glue,
     httr (>= 1.3.0),

tests/testthat/test-populate-config.R

@@ -12,13 +12,19 @@ path_out_expected <- system.file("tests/config-out-expected.yml", package = "plu
 path_out_actual   <- "testing/config-out-expected.yml"
 
 test_that("Smoke Test -populate_config", {
+  if( !dir.exists(dirname(path_out_actual)) )
+    dir.create(dirname(path_out_actual))
+
   populate_config(
     path_in        = path_in,
     project_name   = "thumann-awesomeness-1",
     path_out       = path_out_actual
   )
 })
 test_that("compare -populate_config", {
+  if( !dir.exists(dirname(path_out_actual)) )
+    dir.create(dirname(path_out_actual))
+
   populate_config(
     path_in        = path_in,
     project_name   = "thumann-awesomeness-1",

tests/testthat/test-retrieve-file-list.R

@@ -21,7 +21,7 @@ test_that("Retrieve cdw-skeleton", {
     "cdw-skeleton-1",
     destination_directory = destination
   )
-  expect_equal(nrow(d), 57L)
+  expect_equal(nrow(d), 58L)
 })
 
 test_that("Download", {
@@ -32,7 +32,7 @@ test_that("Download", {
   )
 
   file_count <- length(list.files(destination, all.files = T, recursive = T))
-  expect_equal(file_count, 47L)
+  expect_equal(file_count, 48L)
 
   unlink(destination, recursive = TRUE)
 })

tests/testthat/test-start-project.R

@@ -8,7 +8,7 @@ test_that("start_r_analysis_skeleton", {
   )
 
   file_count <- length(list.files(destination, all.files = T, recursive = T))
-  expect_equal(file_count, 49L)
+  expect_equal(file_count, 47L)
 
   unlink(destination, recursive = TRUE)
 })