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_txt2file.")

Set test parameters

tmp <- file.path(
  getwd(),
  util_rand_str()
)
# to cover dir.create(dir) in util_txt2file.R
# dir.create(tmp)
input <- paste0(
  "Lorem ipsum dolor sit amet,",
  "consectetur adipiscing elit,",
  "sed do eiusmod tempor incididunt",
  "ut labore et dolore magna aliqua.",
  "Ut enim ad minim veniam,",
  "quis nostrud exercitation ullamco laboris nisi",
  "ut aliquip ex ea commodo consequat.",
  "Duis aute irure dolor in reprehenderit in voluptate velit",
  "esse cillum dolore eu fugiat nulla pariatur.",
  "Excepteur sint occaecat cupidatat non proident,",
  "sunt in culpa qui officia deserunt mollit anim id est laborum."
)
Variable <- "`input`"
Description <- "Input string"
Value <- paste(input, collapse = "\n")
knitr::kable(
  x = data.frame(
    Variable,
    Description,
    Value
  ),
  row.names = FALSE
)

Run test

util_txt2file(
  text = input,
  dir = tmp,
  fn = "Lipsum.txt",
  msg = "Output file:"
)
results <- readLines(
  file.path(
    tmp,
    "Lipsum.txt"
  )
)
unlink(
  file.path(
    tmp,
    "Lipsum.txt"
  )
)

Results

Parameter <- paste(input, collapse = "\n")
Result <- paste(results, collapse = "\n")
knitr::kable(
  x = data.frame(
    Description,
    Parameter,
    Result
  ),
  row.names = FALSE
)

test_that("util_txt2file works", {
  skip_on_appveyor()
  expect_equivalent(
    results,
    input
  )
})

test_that("warning", {
  util_txt2file(
    text = input,
    dir = tmp,
    fn = "Lipsum.txt",
    msg = "Output file:",
    overwrite = FALSE
  )
  expect_warning(
    util_txt2file(
      text = input,
      dir = tmp,
      fn = "Lipsum.txt",
      msg = "Output file:",
      overwrite = FALSE
    )
  )
})

Clean up temporary files and folders

util_clean_dir(
  dir = tmp,
  create_dir = FALSE
)

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