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 = "-")
jennybc/googlesheets documentation built on Feb. 8, 2022, 11:48 p.m.