R/TempDir.R

In raubreywhite/RAWmisc: R Convenience functions

#' Create a new temp dir
#' @export TempDir
TempDir <- function() {
  time <- as.character(Sys.time())
  time <- gsub("[\\: ]", "-", time)
  rand <- as.character(stats::runif(1))
  rand <- gsub("[\\. ]", "", rand)
  dir.create(t <- file.path(
    tempdir(),
    sprintf(
      "%s-%s-%s",
      time,
      Sys.getpid(),
      rand
    )
  ))

  return(t)
}