In jeksterslabds/jeksterslabRutils: Package Utility Functions

knitr::opts_chunk$set(
  error = TRUE,
  collapse = TRUE,
  comment = "#>",
  out.width = "100%"
)

library(testthat)
library(jeksterslabRutils)
context("Test util_make_subdir.")

Parameters

Initialize folders in the working directory

tmp_01 <- util_make_subdir()
tmp_02 <- util_make_subdir()

testthat

test_that("expect_warning", {
  expect_warning(
    util_make_subdir(
      subdir = basename(tmp_01)
    )
  )
})

test_that("expect_true", {
  expect_true(
    dir.exists(
      tmp_02
    )
  )
})

Clean up files and folders

util_clean_dir(
  dir = tmp_01,
  create_dir = FALSE
)
util_clean_dir(
  dir = tmp_02,
  create_dir = FALSE
)

jeksterslabds/jeksterslabRutils documentation built on Jan. 18, 2021, 11:41 p.m.