tests/testthat/helper02_unique-slug.R

slug <- paste("test-gs", Sys.info()["user"], "", sep = "-")

TEST <- tempfile(slug, tmpdir = "") %>% basename()

p_ <- function(x) paste(TEST, x, sep = "-")
dakota1063/dddd documentation built on May 25, 2019, 4:21 p.m.