Test: term_user_lib

Ivan Jacob Agaloos Pesigan

2020-07-09

Source: vignettes/tests/test_term_user_lib.Rmd 
library(testthat)
library(jeksterslabRterm)
library(jeksterslabRutils)
context("Test term_user_lib.")

Set test parameters

tmp <- file.path(
  tempdir(),
  util_rand_str()
)
dir.create(tmp)
on.exit(
  unlink(
    tmp,
    recursive = TRUE
  )
)
fn_renviron <- file.path(
  tmp,
  ".Renviron"
)
# The library path is set to `{HOME}/R/{PLATFORM}-library/{R.VERSION}`
platform <- R.version[["platform"]]
major <- R.version[["major"]]
minor <- sub(
  pattern = "^(\\d+)\\.\\d+$",
  replacement = "\\1",
  x = R.version[["minor"]]
)
version <- paste0(
  major,
  ".",
  minor
)
libpath <- file.path(
  Sys.getenv("HOME"),
  "R",
  paste0(
    platform
  ),
  version
)
init <- dir.exists(libpath)

Run test

term_user_lib(
  dir = tmp
)
#> User library path: /home/jek/R/x86_64-pc-linux-gnu/4.0
#> Added R_LIBS_USER="/home/jek/R/x86_64-pc-linux-gnu/4.0" to /tmp/RtmpZgmY2t/uuiKuQsF/.Renviron
test_that(".Renviron", {
  expect_true(
    file.exists(fn_renviron)
  )
})
unlink(
  c(
    fn_renviron,
    tmp
  ),
  recursive = TRUE
)
if (!init) {
  unlink(
    libpath,
    recursive = TRUE
  )
}