tests/testthat/test-prInit.R

In tinyProject: A Lightweight Template for Data Analysis Projects

context("Function prInit")

dir <- tempdir()
setwd(dir)

if (dir.exists("project-test")) unlink("project-test", recursive = TRUE)
dir.create("project-test")
setwd("project-test")

test_that("prInit creates folders and files", {
  expect_silent(prInit())
  expect_true(dir.exists("data"))
  expect_true(dir.exists("scripts"))
  expect_true(dir.exists("output"))
  expect_true(file.exists(".Rprofile"))
  expect_true(file.exists("scripts/start.R"))
  expect_true(file.exists("scripts/data.R"))
  expect_true(file.exists("scripts/main.R"))
})

test_that("The .Rprofile scripts can be sourced", {
  expect_output(source(".Rprofile"), "Sourcing start.R")
})

test_that(".Rprofile runs start.R script", {
  cat("\nprint(\"Hello World\")\n", file = "scripts/start.R", append = TRUE)
  expect_output(source(".Rprofile"), "Hello World")
})

test_that(".Rprofile runs scripts with prefix 'tools'", {
  cat('print("Tools")\n', file = "scripts/toolsTest.R")
  expect_output(source(".Rprofile"), "Tools")
})

test_that("prInit can init a project in a another folder", {
  expect_silent(prInit("project_dir"))
  expect_true(dir.exists("project_dir/data"))
  expect_true(dir.exists("project_dir/scripts"))
  expect_true(dir.exists("project_dir/output"))
  expect_true(file.exists("project_dir/.Rprofile"))
  expect_true(file.exists("project_dir/scripts/start.R"))
  expect_true(file.exists("project_dir/scripts/data.R"))
  expect_true(file.exists("project_dir/scripts/main.R"))
})